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PREFACE 



The purpose of this booklet is to explain the differ- 
ences that exist between the hypothetical DELTA 63 fin 
PROGRAMMING AND CODING DIGITAL COMPUTERS ) and the 
IBM 709-7090-7094 digital computers. It is deemed impor- 
tant that the reader "go on" a computer early in his 
studies. This booklet, used in conjunction with the book, 
attempts to permit him to do just that. 

The book itself is self-contained; it stands by 
itself and makes no references to this booklet. The 
booklet, however, is tied intimately to the book. There 
are many references to the latter, indicated by the speci- 
fic mention of pages. 

The plan for the joint use of book and booklet is as 
follows. The reader follows the book with reference to 
the workplan of this booklet (placed at the start of this 
booklet). The workplan indicates when material here is to 
supplement, modify , or replace material in the book. The 
reader then makes appropriate references as noted. 
Material here follows the plan of the book and is placed 
in proper sequence. In general, the book material in 
small type, which is of a specific nature (specific to the 
DELTA 63), is supplemented, modified or replaced. 

The effect of this joint usage is to yield a textbook 
that is of general structure, illustrated by coding for 
the IBM 709-7090-7094 computers. Characteristics of these 
computers, their repertoires of instructions, and examples 
of their coding appear in this booklet. A number of 
additional examples are included to reflect the special 
features and instructions of the IBM 709-7090-7094 computers 

Computer manuals, published by IBM on the three 
computers, should also be used. 

Part I of the book is general in its approach and so 
needs no modification here. Parts II and III, however, are 
largely specific and so are well represented in this 
booklet . 

An index to the 7090 instructions appearing in this 
booklet follows the regular index. 



Philip M. Sherman 
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WORKPLAN 



This workplan indicates where the material in the 
booklet is to be used to supplement , modify , or replace 
the corresponding material in the book, PROGRAMMING AND 
CODING DIGITAL COMPUTERS. (S, M, and R indicate supple- 
ment, modify, and replace. These characters appear at 
each section within the booklet.) 

Pages Material 

CHAPTER 5 

R 84.4 - 85.5 General structure of 7090 

R 85.8 - 86.3 Addition and subtraction: instructions 

R 86.7 - 87.2 Example 5.1 

R 87.4 - 87.8 Example 5.2 

S At 87.10 Comments on overflow 

R 88.4 - 89.I Mult, and division: instructions 

R 89.5 - 91.1 Examples 5.3,5.4,5.5 

R 92.1- 92.6 Example 5.6 

R 93.3 - 93.6 Transfer instructions 

M 93.6 - 94.4 Comments on transfers 

R 94.5- 97.10 Examples 5.7,5.8,5.9 

CHAPTER 6 

R 102.7 - 103.1 Example 6.1 

S At 104.4 What PAP is 

R 106.8 - 107.1 Instruction format 

M 107.4 - 109.7 Pseudo-operations 

S At 109.10 Qualifiers 

R 110.2 - 110.6 Example 6.2 

R 111.5 - 112.1 Example 6.3 
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Chapter 5 
BASIC OPERATIONS 



(r) _ (84.4 _ 85.5*) 

GENERAL STRUCTURE OF 709/7090/7094 COMPUTERS 

The three computers are very similar, having the same 
memory capacity and essentially the same special registers 
and instructions. The 709 is slower than the 7090 by a 
factor of approximately 5; the 7094 has a few additional 
features and instructions. The three will be referred to 
by reference to the 7090.** 

The IBM 7090 computer has 32,768 36-bit words, usually 
addressed octally, 00000 through 77777. Bits in memory 
words are labeled S, 1, 2, . .., 35. The S-bit holds the 
sign, so that a signed 35-bit number can be stored in each 
word; a positive sign is stored as a 0 and a negative sign 
is stored as a 1. 

Magnetic tapes are connected to the computer for 
input-output purposes. Information may be read from 
magnetic tape or punched cards and may be written on tape, 
punched ;on cards, or printed on paper. Data transmitted 
between memory and an input-output unit must pass through 
a data channel . 

Each instruction is placed in one word in memory 
Most instructions have the format shown in Figure 5.1. 
Bits S and 1 through 11, the operation field, hold the 
operation code. Bits 21 through 35, the address field, 
hold the operand address of the instruction. The octal 
representation of the instruction shown in Figure 5.1 is 
+050000015056. The operation code is +0500o and the 
operand address is 150560. 



*Pages given at heads of sections indicate the pages in 
the text replaced by the material here. The digit after 
the decimal point indicates position on the page; thus 
"84.4" indicates a point about 4/10 down the page. 

**De tails on the 7090 and 7094 computers are available in 
these IBM Manuals: "Reference Manual - IBM 7090 Data 
Processing System" (Form A22-6528-4, 1962) and "Reference 
Manual - IBM 7094 Data Processing System" (Form A22-6703, 
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SI 11 21 35 

000101000000000000001101000101110 
~. y v. y 



operation code address 



Figure 5,1. IBM 7090 instruction word. 



Integers and fixed-point numbers each may occupy,. 
35 bits, filling bits 1-35; the S-bit is used fov^€ 
sign. Floating-point numbers each also occupy c0e word; 
one number is shown in Figure 5.2. Bits 1 thorough 8 
hold the characteristic, and bits 9 through 35 hold the 
absolute value of the fraction. Characteristics are 
formed by adding 200s (128) to the powers of 2 in floating- 
point form. The binary point is assumed to be immediately 
to the left of the fraction. The octal form of the number 
shown in Figure 5.2 is -20622050400, which is the number 
-18.0790. 



implied location 
binary point 



of 



liooooiiopiooiooooioioooiooooooooooa 



Characteristic 



Fraction 



Figure 5.2. IBM 7090 floating-point number. 



The accumulator register (AC) contains 38 bits, 
labeled S, Q, P, and 1 through 35. The Q and P bits are 
considered to be to the left of bit 1 and provide for 
overflow in the AC. The multiplier-quotient register (MQ) 
contains 36 bits, numbered as in a memory word. During the 
execution of special instructions, including multiplication 
and division, the MQ is used as the right-hand extension 
of the AC. 

(R) (85.8 - 86.3) 

ADDITION AND SUBTRACTION 

Following are several of the arithmetic and data- 
moving instructions of the 7090. In these descriptions, 
the following sequence of information is given: The 
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instruction name in- full, a 3-letter mnemonic abbreviation 
for the instruction, the operation code, the execution 
time in machine cycles, and the description. A machine 
cycle is 12, 2.18, and 2 microseconds for the 709, 7090 
and 7094 computers, respectively. The Y that is mentioned 
refers to a memory location and represents an operand 
address. All registers affected by the instruction are 
mentioned. 

CLEAR AND ADD (CIA Y) (+0500); 2 cycles. The C(Y) 
replaces the C(AC) S .1-35.* Positions P and Q of the AC are 
set to zero. The C(Y) is unchanged. 

STORE (STO Y) (+0601); 2 cycles. The C(AC) q 
replaces the C(Y). The C(AC) is unchanged. ^ 

ADD (ADD Y) (+0400); 2 cycles. The C(Y) is added 
algebraically to the C(AC) and the sum is placed in the AC. 
The C(Y) is unchanged. 

SUBTRACT (SUB Y) (+0402); 2 cycles. The C(Y) is 
subtracted algebraically from the C(AC) and the difference 
is placed in the AC. The C(Y) is unchanged. 

HALT AND TRANSFER (HTR Y) (+0000); 2 cycles. The 
computer stops upon execution of this instruction. (If 
the start key on the console is pushed, the computer takes 
its next instruction from location Y and proceeds from 
the re . ) 

As the result of an addition or subtraction, if the 
C(AC) is zero, the sign of the AC is unchanged. Thus if 
the C(AC) is -60 and the C(Y) is +60, then after the 
addition of the C(Y) the C (AC) = -0. 

( R ) — _™.( 8 6.7 - 87.2) — 

Example 5.1 Find the sum of 56, >45, 23, and -39. 
These numbers are located in' sequence, beginning at loca- 
tion 00300. Place the sum in location 00304. 

Since addition is performed in the AC, the first 
number must be loaded into the AC, and all other numbers 
must then be added to the first. Finally, the sum must 
be stored in 00304. The program is written to begin at 
location 00100 and end at location 00105 . Location 00304 
is set aside for the sum. 



^Subscripts on an expression of the form C(X), where X is 
a word or register, refer to the only bits involved; bits 
not mentioned are not involved. 
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Location 



Contents 



Remarks 



00100 
00101 
00102 

00103 
00104 

00105 

00300 

00301 
00302 

00303 
00304 



+0500 
+0400 
+0400 
+0400 
+0601 
+0000 



000 00300 
000 00301 
000 00302 
000 00303 

000 00304 
000 00000 



+000000000070 

-000000000055 

+000000000027 
-000000000047 
+000000000000 



Load 56 into the AC 

Add -45 to AC, giving 11 

Add 23, giving 34 

Add -39, giving -5 

Store sum in 00304 

Halt 

56 (Numbers are listed 
-45 at left in octal) 

23 
-39 

For sum 



(R). 



(87.4 - 87. 8). 



Example 5.2 Find the value of m, where 

m = a+ b- c+ d 

The quantities a, b, c, and d are stored in sequence, 
starting at location 00675. Place the sum in loca- 
tion 00674. 

The structure of this program is similar to the one 
in Example 5.1, except that one quantity (c) is subtracted 
from the C(AC). The program is written to start at loca- 
tion 00020. Location 00674 is set aside for the sum. 



Location 


Contents 


Remarks 


00020 


+0500 000 00675 


Load a into AC 


00021 


+0400 000 00676 


Add b, forming a + b 


00022 


+0402 000 00677 


Subtract c, forming a + b - c 


00023 


+0400 000 00700 


Add d: a+b-c+d 


00024 


+0601 000 00674 


Store sum 


00025 


+0000 000 00000 


Halt 


00674 


+000000000000 


For sum 


00675 


+XXXXXXXXXXXX 


a 


00676 


+XXXXXXXXXXXX 


b 


00677 


+XXXXXXXXXXXX 


c 


00700 


+XXXXXXXXXXXX 


d 



The contents of the four words containing a, b, c, 
and d are shown as x's with plus signs. The x's stand for 
any digits, and the signs may be negative. 
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(S) (At 87.10*)— 

If two numbers are added, there may be an overflow 
bit (a carry) to the left of bit 1 in the accumulator, 
into bit P. Carries from bit P are placed in bit Q, and 
carries from bit Q are lost. When a "l" bit is so placed 
in bit P, overflow occurs and the overflow indicator is 
turned on. An instruction, TRANSFER ON OVERFLOW, may be 
used to test the status of this indicator. 

( R ) _ (88.4 - 89.1) — — 

MULTIPLICATION AND DIVISION 

MULTIPLY (MPY Y) (+0200); 2-1.4 cycles. The C(Y) is 
multiplied algebraically by the C(MQ), and the product is 
placed in the AC and the MQ. The less significant half 
of the product is placed in the MQ, and the more signifi- 
cant half is placed in the AC. Positions P and Q of the 
AC are set to zero. The sign of the product is placed in 
the signs of both registers. 

To illustrate multiplication, let us assume for 
simplicity that the AC, the MQ, and location Y have 4 bits 
and a sign each. Let 

C(MQ) = -1011 2 
C(Y) = +0111 2 

The product of these numbers is -01001101; it appears 
in the AC and the MQ as follows: 

AC : -0100 MQ: -1101 

Note that, if the product is small enough (4 bits 
here, or 35 bits in the actual MQ) all significant bits 
are located in the MQ. 

DIVIDE OR HALT (DVH Y) (+0220); 3-l4 cycles. The 
°( ac )q,P, 1-35 and the C(MQ) 1 _35 are treated as a 72-bit 
dividend and the C(Y) is treated as a 35-bit divisor. The 
sign of the AC is the sign of the dividend. If the 



*This means "at the bottom of 87." 
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magnitude of the C(Y) is greater than the magnitude of the 
C(AC), division takes place. The 35-bit quotient is 
placed in the MQ and the remainder is placed in the AC. 
The C(Y) is unchanged. If the magnitude of the C(Y) is 
not greater than the magnitude of the C(AC), division does 
not occur and the computer stops with the divide-check 
indicator on; the C(AC) and the C(MQ) remain unchanged. 

A similar instruction, DIVIDE OR PROCEED, is available. 
If division does not occur because the magnitude of the 
C(Y) is too small, division does not occur and the computer 
continues in sequence with the next instruction. 

To illustrate division, assume again that registers 
and words have 4 bits and a sign each. Let the MQ contain 
the number 14 (163) and the C(AC) = 0. Let the C(Y) = 4. 
The quotient is 3 and the remainder is 2. The answer 
appears as follows: 

AC: +0010 MQ: +0011 

Instructions to load and store the MQ are required to 
perform these operations. 

LOAD MQ ( IDQ Y) (+0560); 2 cycles. The C(Y) replaces 
the C(MQ). The C(Y) is unchanged. 

STORE MQ (STQ Y) (-O60O); 2 cycles. The C(MQ) 
replaces the C(Y). The C(MQ) is unchanged. 

It is sometimes necessary to move the C(AC) to the 
MQ, or vice versa, and to clear the AC except for its 
sign. The following instructions are so used. 

EXCHANGE AC AND MQ (XCA) (+0131) ; 1 cycle. The 
C(AC)s j i-35 and the C(MQ) are exchanged. Positions P 
and Q 6f the AC are set to zero. 

This instruction requires no operand; the address 
field is left empty (00000) normally. 

CLEAR MAGNITUDE (CLM) (+0760,0); 2 cycles. The 
C (AC )q, 1-35 are cleared and the C(AC)s is unchanged. 

( R ) (89.5 - 91.1)— 

Example 5.3 Determine the value of the expression 

f = (a+b) (c+d)/ac 

The quantities a, b, c, and d, having the values 1.5, -3.5, 
12.1 and 14, respectively, are stored in sequence, starting 
at location 01000. Place the value of f in location 00777. 
Scale all numbers upward by a factor of 10. 
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The numbers in this problem are small enough so that 
the MQ alone suffices for all calculations; the AC is not 
needed. It is necessary to store an intermediate result, 
(a+b), temporarily. This is stored in the location set 
aside for f, location 00777. 

Before a division occurs, it is necessary to clear 
the AC unless it is known for certain that it contains 
zero. Here, we are assuming that all products are less 
than 35 bits, so that the AC is zero after each multi- 
plication. After the first division in this program, a 
remainder might be left in the AC, so that the register 
is cleared, except for sign. The sign must be kept in 
the AC because that is taken as the sign of the dividend. 
Note the use of the XCA instruction. 

(In this listing, the six rightmost octal digits of 
the AC and the MQ, are shown with each instruction; the 
contents after execution are shown. Unknown quantities 
are shown by x's.) 

Location Contents C(AC) C(MQ) Remarks 



00100 
00101 
00102 

00103 

00104 

00105 

00106 

00107 

00100 

00111 
00112 
00113 



+0500 000 01000 

+o4oo 000 01001 
+0601 000 00777 

+0500 000 01002 

+o4oo 000 01003 

+0131 000 00000 
+0200 000 00777 
+0220 000 01000 
+0760 000 00000 

+0220 000 01002 

-0600 000 00777 

+0000 000 00000 



+. .000017 

-. .000024 
- . .000024 

+. .000171 
+. .000405 

+. .xxxxxx 
-. .000000 
-. .000000 
- . .000000 

-. .000152 
-..000152 
-. .000152 



+. .xxxxxx 
+. .xxxxxx 
+. .xxxxxx 
+. .xxxxxx 
+. .xxxxxx 

+. .000405 
-. .012144 
-. .000534 
-. .000534 

-. .000002 
-. .000002 
- . .000002 



Load a 
Add b 

Store temp. 
Load c 
Add d 
AC to MQ 
(a+b)(c+d) 
Divide by a 
Clear AC, 

keeping sign 
Divide by c 
Store f 
Halt 



00777 +000000000000 For result (f ) 

01000 +000000000017 a (Numbers are scaled up by 10 ) 

01001 -000000000043 b 

01002 +000000000171 c 

01003 +000000000214 d 
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After multiplication, the C(MQ) =121448 (5220). Division 
by 178 (15) S lves 53^8 (3^8) with no remainder. Division 
of this by 1718 (121) gives 2 with a remainder of 1528 
(106). The value of f stored is 2; a more accurate value 
is 2.9, but the 9-digit is lost unless precautions are 
taken. Scaling all four original quantities as indicated 
does not improve accuracy. To avoid the loss of accuracy 
in division, it is necessary to scale the dividend up more 
than the divisor. This problem is characteristic of fixed- 
point division in any computer and provides a good argu- 
ment for floating-point arithmetic. 

In loading the MQ for division using LDQ 
done here), the sign of that register must be 
the AC. This may be accomplished as follows: 



(which is not 
placed in 



+0560 000 xxxxx 
+0500 000 xxxxx 
+0760 000 00000 



Load MQ 

Load AC with same number 
Clear AC, keeping sign 



Example 5.4 Evaluate p 2 *; p = -13 and is stored in 
location 00160. Place the answer in the MQ. 



L ocation 

00200 
00201 
00202 

00203 
00204 



Contents 

+0560 000 00160 

+0200 000 00160 
+0200 000 00160 
+0200 000 00160 
+0000 000 00000 



C(MQ) 

-000000000015 
+000000000251 
-000000004225 
+000000067621 
+000000067621 



Remarks 

Load p into MQ 
Multiply: p 2 
Multiply: p3 



Multiply : 
Halt 



P 



4 



00160 



-000000000015 



P 



Example 5.5 Evaluate the polynomial 



F = 8X- 3 + 4x : 



x 



x is stored in location 01000; P is to be left in the MQ. 

If the program is written in the manner of earlier 
programs - evaluating each term separately and storing It 
temporarily - 16 instructions are required. If we note, 
however, that terms have common factors, some coding and 
program execution time can be saved. For example, all 
three terms have the factor x2. The function can be 
regrouped as follows: 

F = x 2 (x(4+8x 2 ) - 1) 



The program 
parentheses 



can be written by starting within the inner 
and performing all operations in sequence, 

brackets. 



ending the program outside 


LUCd O-LOn 


Contents 


UU1UU 




nnn 


m nnn 

UiUUU 




npnn 


nnn 


m nnn 


nm no 


0200 


nnn 




nm n^ 


0131 


000 


00000 


nm n4 


0400 


000 


00200 


00105 


0131 


000 


00000 


00106 


0200 


000 


01000 


00107 


0131 


000 


00000 


00110 


0402 


000 


00202 


00111 


0131 


000 


00000 


\-/ W _L X C 


0400 


000 


01000 


00113 


0400 


000 


01000 


00114 


0000 


000 


00000 


00200 


+000000000004 


00201 


+000000000010 


00202 


+000000000001 


01000 


+XXXXXXXXXXXX 



the 



Remarks 



x 



Load x to MQ 
Multiply by x 
Multiply by 8: &V 
8x2 to AC 
Add 4: 4 + 
*Sum to MQ 
Multiply by x 
Product to AC 
Subtract 1 
Difference to 
Multiply by x 
Multiply by x 
Halt 



4 
8 
1 
x 



MQ 



(R). 



(92.1 - 92.6) 



ANALYSIS FOR CODING 

Example 5.6 Write a program to evaluate a general 
fifth-order polynomial, leaving the result in the AC. The 



coefficients 
starting 
The 



a, b, c, d, e, 



and f are located in sequence 
at location 01000; x is in location 00700. 
coding for this problem follows directly from the 
last form for G at the bottom of page 91 in the book. The 
program starts within the inner parentheses and proceeds 
outward. 



Location 

00100 
00101 
00102 
00103 
00104 

00105 
00106 

00107 

00123 
00124 



Contents 



+0560 
+0200 
+0131 
+0400 
+0131 
+0200 
+0131 
+0400 



000 01000 
000 00700 
000 00000 
000 01001 
000 00700 

000 00700 

000 00000 
000 01002 



+0400 000 01005 
+0000 000 00000 



Remarks 

Load a into MQ 
Multiply by x: 
Product to AC 
Add b: ax + b 
Sum to MQ 
Multiply by x: 
Product to AC 
(ax+b)x + c 

G in AC now 
Halt 



ax 



(ax+b )x 
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Several instructions are omitted; the sequence of 
four instructions (EXCHANGE, MULTIPLY, EXCHANGE , and ADD) 
is repeated three times after location 00107. 

The time for the execution of instructions should be 
considered in setting up a problem of this type, especially 
if the sequence is to be repeated many times. The 
approach taken in Example 5.6 is relatively efficient, 
since operations are minimized for the general case. Note 
that multiplication takes 2 to 14 cycles, addition takes 
2 cycles, and the exchange instruction takes 1 cycle. 

(R) (93.3 - 93*6) 

TRANSFER INSTRUCTIONS 

The transfer instructions on the IBM 7090 correspond 
to the .lump instructions of the book and on some other 
computers . 

TRANSFER (TRA Y) (+0020); 1 cycle. The computer 
takes its next instruction from location Y and proceeds in 
sequence from there. 

TRANSFER ON PLUS (TPL Y) (+0120); 1 cycle. If the 
sign of the AC is plus, the computer takes its next 
instruction from location Y and proceeds from there. If 
it is minus, the computer takes the next instruction in 
sequence. 

TRANSFER ON MINUS (TMI Y); (-0120); 1 cycle. If the 
sign of the AC is minus, the computer takes its next 
instruction from location Y and proceeds from there. If 
it is plus, the computer takes the next instruction in 
sequence . 

TRANSFER ON ZERO (TZE Y) (0100); 2 cycles. If the 
C(AC)q p i_35 is zero, the computer takes its next 
instruction from Y and proceeds from there. If it is not 
zero, the computer takes the next instruction in sequence. 

TRANSFER ON NO ZERO (TNZ Y) (-0100); 2 cycles. If 
the C(AC)q p -i_qc is not zero, the computer takes its 
next instruction from Y and proceeds from there., If it 
is zero, the computer takes the next instruction in sequence. 

(M) (93.6 - 9^.4) 

(The following comments apply to 93.6 - 94.4, which 
should be read with these in mind.) 
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The following correspondence of instructions exists: 

DELTA 63 IBM 7090 

JUMP TRA 
JUMPMI TMI 
JUMPNZ TNZ 
JUMPPL TPL 
LOAD CLA 



The concepts described are of a general nature. 
(R) (94.5 - 97.10) — 



CODING SOME DECISIONS 

Example 5.7 Code the following operation: If i ^ n, 
continue at location 00150- if i > n, continue in sequence. 
The flowchart in Fig. 5.3a in the book pictures this 
decision. 

The two conditions can be rewritten as "if i - n < 0" 
and "if i - n > 0. " Since a test against n is not avail- 
able directly, this revision is necessary. Conditional 
jump instructions are used to check for the first condi- 
tion, which is really two decisions as far as the computer 
is concerned: "if i - n < 0" and "if i - n = 0. " If 
neither condition holds, the program continues in sequence. 
The flowchart in Pig. 5.3b in the book pictures the revised 
decision . 



Location 



Contents 



Remarks 



00170 
00171 
00172 
00173 



CLA 00500 
SUB 00501 
TMI 00150 
TZE 00150 



Load i, located in 00500 
Form i - n; n is in 00501 
Jump if fi - n) < 0 
Jump if (i - n) =0 



Control will go t 

In the next 
decisions must be 
can make only two 
transfer instruct 
multiple decision 

Example 5.8 
(2) positive but 
control, respecti 
01000. This deci 



o 00174 if i - n > 0, as required, 
two examples, three-way and four-way 

made. Since all transfer instructions 
-way decisions, it is necessary to place 
ions in sequence to accomplish these 
s . 

If the C(00500) is (l) negative or zero, 
less than 20, or (3) 20 or greater, send 
vely, to (1) 00600, (2) 00700, or (3) 
sion appears in Fig. 5.4a in the book. 
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Let the 
1. 
2. 
3. 

The steps In 
1. 

2. 
3. 



4. 



C(00500) = x. The conditions are 

If x £ 0, go to 00600; 

if 0 < x < 20, go to 00700; 

if 20 £ x, go to 01000. 
the coding process can be listed as follows: 

Place x in the AC; jump to 00600 if 

negative . 

Jump to 00600 if zero. 

Having taken care of nonpositive x, form 
x - 20 because condition 2 now becomes 
"if x - 20 < 0, go to 00700." Jump as 
Indicated . 

Having taken care of x < 20, jump to 01000. 



A modified flowchart is drawn in Fig. 5.4b in the book. 



Location 


Contents 


Remarks 




00100 


CLA 00500 


Load x 




00101 


TMI 00600 


Transfer if x is 


negative 


00102 


TZE 00600 


Transfer if x is 


ze ro 


00103 


SUB 00200 


Form x - 20 




00104 


TMI 00700 


Transfer if fx - 


20) < 0 


00105 


TRA 01000 


Transfer if (x - 


20) ^ 0 


00200 


+000000000024 


20 





The instructions at 00600, 00700, and 01000, and subsequent 
instructions are not listed. 

Example 5.9 Either the quantity a (located in 00400) 
or the quantity b (located in 00402) is to be stored in 
location 00000, depending on these conditions : 

b is zero, store a; 
b is 
b Is 
b is 



a 
a 
a 
a 



is 
is 
is 
Is 



positive 
positive 
negative 
negative 



and 
and 
and 
and 



nonzero, 
zero, store ~, 
nonzero, store 



store 
b 



If 
if 
if 

If a Is negative and b Is nonzero, store a. 
To simplify the coding, assume that a is not zero. 
The flowchart for this problem is drawn in Fig. 5. 5a in 
the book. The coding follows directly from the flowchart, 
which is labeled with addresses to match the program 
following. As the result of the two tests (on a and on b), 
a four-way branch occurs. The four paths merge 
paths, however, because there are only 
taken. A modification of part of the 
in Fig. 5.5b in the book. 



into two 
two actions to be 
flowchart is shown 



Location 



Contents 



Remarks 



00120 


CLA 


00400 


00121 


TPL 


00125 


00122 


CLA 


00402 


00123 


TZE 


00130 


00124 


TRA 


00127 


00125 


CLA 


00402 


00126 


TNZ 


00130 


00127 


CLA 


00400 


00130 


ST0 


00000* 


00131 


HTR 





Load a 

Go to 00125 if a is + 
Load b 

Go to 00130 if b is 0 
Go to 00127 if nonzero 
Load b 

Go to 00130 if b is nonzero 
Load a again 

Store AC (a or b) in 00000 
Halt 



*Some IBM printing equipment uses the symbol "0" for the 
letter 0 and the symbol "0" for zero. This printing 
equipment uses no small letters. 



Chapter 6 
SYMBOLIC CODING 



(R) (102.7 - 103.1) 

A SYMBOLIC PROGRAM 

Example 6.1 Evaluate the polynomial 

F = 8x 5 + 4x 3 - x 2 

x is stored in location X; F is to "be left in the AC. 

In this program, written in the symbolic language FAP 
for the IBM 7090, 0NE, FOUR, and EIGHT are used for the 
address of the constants 1, 4, and 8. This problem was 
coded in Example 5-5. 

Locn. Oper. Address 

START IDQ, X 
MPY X 
MPY EIGHT 
XCA 

ADD F0UR 
XCA 

MPY X 
XCA 

SUB 0NE 
XCA 

MPY X 
MPY X 
HTR 

0NE +000000000001 
F0UR +000000000004 
EIGHT +000000000010 

X +XXXXXXXXXXXX 

( S ) (At 104.4) — 

THE ASSEMBLER LANGUAGE 

An assembly language very commonly used for the 
IBM 7090 computer is FAP (FORTRAN Assembly Program). FAP 
is a modification of SAP (Symbolic Assembly Program), 
written by United Aircraft for the IBM 704 computer. 

14 
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(R) 



'(106.8 - 107.1)' 



INSTRUCTION FORMAT 

The use of the columns on a PAP symbolic card and the 
fields they comprise are as follows: 



Columns 

1-6 
8-14 
16 - 72 



Field 

Location field 
Operation field 
Address field 



Contents 

Symbol (definition) 
Symbolic operation 
Address and remarks 



Figure 6.1 in the book also applies to a FAP symbolic card. 

The location field may be left blank; several 
instructions in Example 6.1 have no symbols in their loca- 
tion fields. A symbol is defined by being placed in the 
location field of an instruction. The symbol may be 
placed anywhere in the field. Column 7 must be blank. 

The operation field must begin in column 8. The 
variable field contains a symbolic address which must 
begin after at least one blank column following the oper- 
ation, but no later than column 16. Remarks may be used, 
provided at least one blank column precedes them. 



(M) 



(107.4 - 109.7)' 



(The following comments apply to 107.4 - 109.7, 
which should be read with these in mind.) 

FAP pseudo-operations correspond exactly in their 
function and use to the pseudo-operations in the book. 
The following correspondence exists: 



HAP 


FAP 


0RIGIN 


0RG 


END 


END 


0CTAL 


0CT 


DECML 


DEC 


BL0CK 


BSS 



The symbol "BSS" stands for block starting with symbol; 
a symbol in the location field is normally used Fo iden 
the block. 
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If the operation and variable fields of a symbolic 
card are left blank, FAP assembles a full word of O-bits. 
If the operation field alone is blank, O-bits will fill 
bits S, 1, and 2. If the address field alone is blank, 
O-bits will fill bits 21-35, the address field of the 
instruction. 

(S) (At 109.10)— 

QUALIFIERS 

If it is desired to modify integer interpretation for 
several cards, so that all integers are treated as octal, 
the SAK pseudo-operation, placed in the operation field, 
is used. Cards following it, until a second SAK card is 
encountered, are so treated. Successive SAKs reverse 
the mode. A decimal qualifier, /D/ , is also available. 
Any integer immediately following this qualifier is 
treated as decimal. 

( R ) (110.2 - 110.6) 

THE ASSEMBLY LISTING 

Example 6.2 Following is a listing of the program to 
evaluate the polynomial 



F = Qyp + 4x 



2 



x 



coded in Example 5.6. 



Object program (octal) 



Source program (symbolic) 



Location Contents 



Location Oper. Address 



00100 



00100 +0560 000 00120 

00101 +0200 000 00120 

00102 +0200 000 00117 

00103 +0131 000 00000 

00104 +0400 000 00116 

00105 +0131 000 00000 

00106 +0200 000 00120 

00107 +0131 000 00000 

00110 +0402 000 00115 

00111 +0131 000 00000 

00112 +0400 000 00120 

00113 +0400 000 00120 

00114 +0000 000 00000 



0RG /0/1OO 
START LDQ X 



MPY X 
MPY EIGHT 
XCA 

ADD F0UR 
XCA 

MPY X 

XCA. 

SUB 0NE 
XCA 

MPY X 
MPY X 
HTR 



00115 +000000000001 

00116 +000000000004 

00117 +000000000010 
00120 +000000000000 



0NE DEC 1 

F0UR DEC 4 

EIGHT DEC 8 
X 



00100 



END START 



(R)- 



(111.5 - 112.1)' 
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STEPS IN PROGRAM ASSEMBLY 

Example 6.3 Compare the quantities p and 
in P and Q, respectively. If p < q, place the 
in NUMBER; if p = q, place the number 2 in NUMBER; if 
p > q, place the number 3 in NUMBER. 

These conditions can : be rewritten: 



q, stored 
number 1 



1. If p - q 

2. if p - q 

3. if P - q 

Case 2 must be checked 



< 0, store 1; 
= 0, store 2; 
> 0, store 3- 
first, because -0 



and 



+0 are 

treated differently. The flowchart is drawn in Pig. 6.2 
in the book. Note that control is sent, to one of three 
places so that the proper number ( 1, 2, or ,3 ) can be 
obtained for storage in NUMBER. The three possible store 
operations are performed at one location, ST0RE. 



Locn . Qper. 



START 



GET 3 

GET1 

GET 2 
ST0RE 



0RG 
CLA 
SUB 
TZE 
TMI 
CLA 
TRA 
CLA 
TRA 
CLA 
ST0 
HTR 



Address 

/0/2OO 
P 

Q 

GET 2 

GET1 

THREE 

ST0RE 

0NE 

ST0RE 

TW0 

NUMBER 



Form p - q 

Jump if zero 

Jump if minus 

Here if plus... 3 to AC 

1 to AC 

2 to AC 



P 
Q 

NUMBER 

0NE DEC 1 
TW0 DEC 2 
THREE DEC 3 

END START 



Chapter 7 
PROGRAM LOOPS 



(R) —(120.1 - 120.4) 

WHY USE LOOPS? 

Example 7.1 Compute the value of x 10 . The value of 
x Is small enough so that the number x 10 does not exceed 
the capacity of a computer word. 

Prom Example 5.4, we note that a sequence of MPY 
Instructions suffices. 

Locn. Oper. Address 

LDQ X 

MPY X 

MPY X 

MPY X 

MPY X 

MPY X 

MPY X 

MPY X 

MPY X 

MPY X 

STQ RESULT 
HTR 

X 

RESULT 

(R) (120.8 - 122.3) " 

A SIMPLE LOOP 

Example 7.2 Compute the value of x n . 

A flowchart appears in Fig. 7.1 in the book. The 
quantity p is the current value of the product; its 
initial value is 1. Counting is done with index i; its 
initial value is also 1. The important step is the multi- 
plication of the accumulated product by x, producing one 
more power of x: 

p X x -» p 
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To allow for the case n = 0 a test is made; in that event, 
p is set equal to 1. The symbolic names used to label 
flowchart boxes correspond to the symbols in the following 
program. The test for loop termination is accomplished 
by checking (i - n) against zero. 



Locn . 


Oper. 


Address 




START 


CIA 


0NE 


1 to Ti £>n<i 1 




ST0 


P 




ST0 


I 




TESTN 


CLA 


N 


Test for zero n 




TZE 


D0NE 




MLTPY 


LDQ 


P 






MPY 


X 




STQ 


p 




1NCRSE 


CLA 


I 


i + 1 to i 




ADD 


0NE 






ST0 


I 




TEST 


SUB 


N 


Test for end 




TMI 


MLTPY 


Back if not done 




TZE 


MLTPY 




D0NE 


HTR 







N 
X 
P 
I 

0NE DEC 1 

Note that through the use of a program loop it is a 
simple matter to include n as a variable of the problem. 

(r) (123.7 - 124.9) — 

A LOOP WITH ADDRESS MODIFICATION 

STORE ZERO (STZ Y) (+0600); 2 cycles. The C(Y) is 
set to zero and its sign is set plus. 

Example 7.3 Determine the sum of a given set of 
n numbers. The numbers are stored in the block beginnine: 
at NUMBRS ; their sum is to be placed at SUM. 

The flowchart is modified to include the operation 
of address modification; it is redrawn in Pig. 7.2 in the 
book. The memory box indicates that a ± is stored in loca- 

^2?™22?? RS+1 " 1 " Thus ' lnltla Hy. the program sums the 
0 (NUMBRS j; to sum aj_, the program sums the C (NUMBRS+i-l ) . 
After the last number is summed, the operand address of the 
ADD instruction is NUMBRS+n-1. The flowchart shows, however 
that the test for the end of the problem follows the modi- 
fication of the index, so that the operand address at the 
time of the test is NUMBRS+n. Thus, the loop must termi- 
nate when the ADD instruction has been modified exactly 
n times. 
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In the following program, the ADD instruction is 
modified after each number is summed. A data instruction , 
or instruction used as a constant, can "be set initially to 
check for the final value of the ADD instruction. When 
this constant matches the ADD, the loop terminates; a TNZ 
does the matching. In addition, another instruction (at 
SETWD) is used to "initialize" the ADD instruction. 

It is necessary to set aside a block of words for 
the n numbers. Here, 1000 words are reserved. A word is 
also set aside for n. 



Locn 



Oper. 



Address 



L00P 
ADDNUM 



DONE 



STZ 
CLA 
ST0 
ADD 
ST0 
CLA 
ADD 
ST0 
CLA 
ADD 
ST0 
SUB 
TNZ 
HTR 



SUM 
SETWD 
ADDNUM 
N 

C0MPAR 

SUM 

NUMBRS 

SUM 

ADDNUM 

0NE 

ADDNUM 
C0MPAR 
L00P 



0 to sum 

Initialize instr. 
Set test word 
Add a number 

Modify instr. 



SUM 
SETWD 
C0MPAR 
N 

0NE 



ADD 



DEC 



NUMBRS BSS 



NUMBRS 



1 

1000 



(ADD NUMBRS+n) 



A number of 7090 instructions have negative operation 
codes: STQ and TNZ are among them. Adding +1 to such 
instructions has the effect of decreasing the address 
portion of the instruction. This difficulty may be avoided 
by the consistent use of the following instructions in 
place of CLA and ST0 for address modification; their use 
ignores the operation code sign, in effect, and arithmetic 
is performed as desired. 

CLEAR AND ADD LOGICAL (CAL Y) (-0500); 



C(Y) replaces the C(AC) 
are set to zero 



P,l-35' 



Positions S 



2 cycles. The 

and Q, of the AC 



STORE LOGICAL WORD (SLW Y) (+0602); 2 cycles. The 
C(AC) Pjl _35 replaces the C(Y). The C(AC) is unchanged. 

These Instructions move bit P of a storage word to 
bit S of the accumulator and vice versa, so that arith- 
metic may be performed on the storage word as though it 
werq a 36-bit positive integer. There are other, more 
significant uses for these two instructions; refer to 
Chapter 12. 

(r) (125.6 - 126.4) 

POLYNOMIAL EVALUATION 

Example 7.4 Write a program to evaluate a polynomial 
of order n, for n as large as 100. The number n, the 
n + 1 coefficients, and the variable x are all given. 
These are located, respectively, in N, the block starting 
at C0EFP, and X. The coefficients are b Q ,b 1 , . . . ,b 

F = b n x n + b n x n_1 + ... + b, 

u 1 n 



A flowchart appears in Fig. 7.3 in the book. The 
program has' a structure similar to that of Example 7.3 
as regards its address modification and initialization. 
The significant operation is the calculation of q, the 
accumulated partial polynomial value. The calculation is 

qx + b 1 q 

Reference to Example 5.6 (page 92 in the book) indicates 
why this operation repeated for successive coefficients 
bi yields the value of F. 



Locn , 



Oper. 


Address 


CLA 


C0EFF 


ST0 


Q 


CAL 


SETWD 


SLW 


M0D 


ADD 


N 


SLW 


C0MPAR 


LDQ 


Q 


MPY 


X 


XCA 





b Q to Q 
Initialize 



L00P LDQ Q q. x + b, to q 



(cont'd) 
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Locn. Oper. 



Address 



M0D 



ADD 
ST0 
CAL 
ADD 
SLW 
CLA 
SUB 
TNZ 
HTR 



C0EFF+1 
Q 



M0D 
0NE 
M0D 
M0D 



Modify instruction 



C0MPAR 
L00P 



Back if not done 



D0NE 



Q 

SETWD ADD 

C0MPAR 

N 

X 

0NE DEC 
C0EPF BSS 



1 

101 



C0EFF+1 



(ADD C0EFF+l+n) 



(S) 



(At 129-2) 



INFORMATION ON TAPE 

Magnetic tapes for the 7090 computer are |" in width 
and are normally 2400' long. Information is stored in 
seven channels, in the manner described in the book. 

Data are recorded on tape in one of two modes j the 
difference is usually of little concern to the programmer. 
In the binary mode , information appears as described in 
the book. In the BCD mode , some bit configurations are 
changed and the check bit is such that there are an even 
number of l's across the tape width. 

Record gaps are ^" long. The ends of files are 
indicated by special marks and/or end-of-file gaps; the 
latter are 3|" long. 

(S) (At 129.4) 

TAPE READING AND WRITING 

(The material in this section and in the remainder 
of Chapter 7, although hypothetical, is of interest to 
the 7090 programmer. He will rarely write his own input- 
output coding; rather he will use a monitor system, 
described in Chapter 11 in the book. Therefore, in order 
to appreciate input-output operations, the DELTA 63 
instructions should be studied. They are simplified 
versions of instructions that actually exist on the 7090. 
The latter instructions are much more complex. ) 
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Magnetic tape may be read from or written on at the 
rates of 75" per second (709 and 7090) or 112.5" per 
second (7090). Information passes between core storage 
and magnetic tape at rates of 15,000 to 62,500 lines of 
bits per second. Each line of bits represents one 
character — such as a letter, digit, or punctuation mark — 
so that the maximum rate is 62,500 characters per second. 
Recent equipment uses rates up to 90,000 characters per 
second. 

Information is written or read in one direction only. 
A tape may be backspaced or rewound, however, and be read 
or written on again. Instructions are available to 
backspace one record, . to backspace one file, to write an 
end-of-file gap and mark, and to rewind a tape. 

Data transmitted between core storage and an input- 
output device (magnetic tape, card reader, card punch, 
printer) must pass through a data channel. The operation 
of a data channel is initiated within a program in the 
computer, but once started the channel operates independ- 
ently of the program. Data channels control the quantity 
and destination of the data transmitted through them. 

The computer and a data channel cannot both make a 
reference to core storage at the same time, so that the 
execution of a main program instruction may be delayed 
until the needs of the data channel are satisfied. The 
delays do not interfere with the main program in any 
other way. If the instruction being executed does not use 
core storage when a channel requires a reference to storage 
normally no delay occurs. 

A maximum of 10 tapes per channel can be used. Each 
tape unit has an address, as does each channel. The 
combination of the two addresses specifies a particular 
tape unit attached to a particular channel. 

A card reader reads cards at the rate of 250 cards 
per minute. Information punched on the cards may be binary 
decimal, alphabetic, or in another format. The reading 
format is controlled by the stored program and a control 
panel attached to the reader. Any sequence of channel 
commands calling for the uninterrupted transmission of 
24 words causes the reading of one complete card. The word 
read are stored in consecutive core storage locations, 
starting with the address specified in the channel instruc- 
tion. Word counts of other than 24 may also be given and 
cards are read as required. 

One card punch may be attached to any channel. 
Punched card output may be decimal, alphabetic, binary, 
or any other desired form. Cards are punched at the rate 
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of 100 per minute. The punching format is controlled by 
the stored program and a control panel on the unit. 
Starting with the location in core storage specified by 
the channel instruction, 24 words from consecutive 
locations are punched on a card. Counts other than 24 
may also be punched by a single instruction. 

One printer may be attached to any channel. Informa- 
tion may be printed in any form within the limitations of 
the set of characters available. A set of 48 different 
characters is available. Information is printed at the 
rate of 150 lines per minute. The format of the informa- 
tion is controlled by the stored program and a control 
panel on the printer. 



Example 7.5 Write a loading program to load from 
tape A. 

The KEADTA instruction in the program below is a 
DELTA 63 instruction.* A reading loop, using the skip 
feature of this instruction, is established. A flowchart 
is drawn in Fig. 7.6 in the book. After a record of 
24 words is read in, the reading instruction is address 
modified so that the next record is read into memory 
at a location 24 addresses later. This process repeats 
until the file is exhausted. 

Locn. Oper. Address 

READ IN READTA /0/1OOO Loading point 



(R) 



(131.7 - 132.7) 



TRA 
CAL 
ADD 
SLW 
TRA 



/0/1OO5 
READIN 
N24 



Starting point 
Modify instruction 



READIN 
READIN 



N24 



DEC 



24 



*The DELTA 63 input-output instructions in these examples 
can be simulated by macro-instructions, described in 
Section 10.2 and Chapter 17 of the book. 



(R.) 



(133.1 



- 134.6) 
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LOADING DATA 

STORE ADDRESS (STA Y) (+0621); 2 cycles. The 
contents of the address field of the AC, i.e., bits 21-35, 
replaces the contents of the address field of location Y. 
The C(AC) and the other bits in Y are unchanged. 

Example 7.6 Write a card-loading program that stops 
loading on encountering an end-of -program card which con- 
tains the octal number 777777777777 in the first word 
position. 

This loading program is similar to the one coded in 
the last example, which reads information from tape. The 
only change (aside from the reading instruction) is that a 
test for the end-of -program card must be made after each 
card is read. As the first word of each card is read into 
a memory location, the contents of that location must be 
checked for 777777777777; if that number is found, control 
goes to the object program for execution. If the end-of - 
program card is omitted, card reading would be attempted 
when no cards are present in the card reader, and the 
computer would stop. A flowchart appears in Pig. 7.7 in 
the book. 



Location 


Oper. 


Address 


READIN 


READC 


/0/1OOO 




HTR 




TEST 


CLA 


/0/1OOO 




SUB 


SEVENS 




TZE 


/0/1OO5 




CAL 


READIN 




ADD 


N24 




SLW 


READIN 




STA 


TEST 




TRA 


READIN 



Loading point 

No 777777777777 

Test first word for 7's 

Go to program 
Modify instructions 



N24 DEC 24 

SEVENS 0CT 777777777777 

As an example of a program that reads its data, 
consider the summation of n numbers; this problem was 
coded in Example 7.3. 

Example 7.7 Determine the sum of a given set of 
n numbers. The numbers are stored in the block beginning 
at NUMBRS; their sum is to be placed in SUM. 
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The numbers are stored on data cards. The number n* 
is in the first word position of the first data card, and 
the n numbers are stored on the following cards, punched 
in binary, 24 to a card. The last card is filled out with 
zeros. The reading loop is similar to the loop in 
Example 7.5, where an object program is read in. 



Location Oper. Address 

READC N,l Read in n 

TRA ERR0R 

L00P READC NUMBRS Read in 24 numbers 

TRA START Go to summation seq, 

CAL L00P 

ADD N24 

SLW L00P 

TRA L00P 

START STZ SUM 



ERR0R 

The program continues as in Example 7.3. 

( R) (135.2 - 136.6) 

READING OUT RESULTS 

Example 7.8 A deck of data cards contains n integers, 
one to a card, in the first word position, in binary form. 
Write a program that computes the sum of each set of three 
integers in succession and writes the n/3 sums on tape. 
The number n, a multiple of 3, appears on the first data 

'(Refer to the book for an analysis and a flowchart. 
Note that ST0RAD is equivalent to STA. ) 







A f\ C\ T*P c< o 
riu u 1 c o o 


kj X J-J X -L 


READC 

I IXj Jri.U\j 


N 1 

X>J ^ X 




TRA 

X x \sL 


ERROR 

XJ X IX LjC/1 L 




CAT, 

vV XT, XJ 


SETWD 1 

kJXj X Vv XJ X. 




SLW 


T,00P1 
xjfjyy l x. 




ADD 


N 




SLW 


CMPAR1 


L00P1 


READC 


NMBRS 1 

INI XX-/ X LkJ ^ -X 




TRA 


ERR0R 




HAT, 

V/ jTI XJ 


T,00P1 




ADD 


0NE 




SLW 


L00P1 




CLA 


L00P1 




SUB 


CMPAR1 




TNZ 


L00P1 


STEP2 


CAL 


SETWD 2 




SLW 


L00P2 




ADD 


0NE 




STA 


L00P2+2 




ADD 


0NE 




STA 


L00P2+2 




ADD 


N 




STA 


CMPAR2 


L00P2 


CLA 


NMBRS 

X <J X XXJX LkJ 




ADD 


NMBRS+1 




ADD 

XJu J_y 


NMBRS +2 




ST0 


SUM 




WRITEB 


SUM 1 




CAL 


L00P2 




ADD 


THREE 

X X XX LX-JX—l 




SLW 


L00P2 




ADD 


0NE 




Oln 






ADD 


0NE 




STA 


L00P2+2 




CLA 


L00P2+2 




SUB 

kJ \J ±-> 


CMPAR2 

W i XX JTi X Lt_ 




TN7! 


T.00P? 




■rrm-D 

ni a 




0NE 


DEC 


i 

_J_ 


THREE 

X X X X IX_IX_I 


DEC 

XJ X-l \J 


•5 


N 

XN 






SUM 






SETWD1 


READC 


NMBRS 1 


SETWD2 


CLA 


NMBRS 


CMPAR1 






CMPAR2 


ADD 


■** 


NMBRS 


BSS 


3000 



Read n 
Tra if end 
Initialize 



of file 
first loop 



Read a number 



Initialize second loop 



Add 3 numbers 



Write sum on tape B 
Modify instrs. 



Test for last sum 



(READC NMBRS +n, 1 ) 
( NMBRS +2+n) 



ERR0R 



Chapter 8 
INDEX REGISTERS 



( R ) (141.8 - 142.7) — 

THE INDEX REGISTERS 

The 709 and 7090 computers each have three index 
registers, designated 1, 2, and 4. (The 7094 computer 
has seven index registers.) Associated with most instruc- 
tions is a tag which specifies one of these registers. 
Bits 18-20 in the instruction word comprise the tag field , 
pictured in Fig. 8.1 below. This 3-bit field may contain, 
the integers 0, 1, 2, and 4.* A tag of 0 indicates that 



000101000000000000011011010001110111 

Operation Tag Address 

Code 

Fig. 8.1 Format of 7090 instruction. 



no index register is specified, whereas a nonzero integer 
designates a particular one. The symbol XR is used for 
"index register," and XR1, XR2, and XR4 refer to the 
specified registers. Each index register contains 15 bits. 

The seven index registers of the 7094 are designated 
1, 2, . .., 7, and the tag field is the same as the other 
computers. Integers 0, 1, 7 are used as described 

above . 

A tag is indicated in FAP by placing its numerical 
designator in the variable field, after a comma following 
the address, without an intervening blank space. The 
following instructions, shown both in symbolic and assem- 
bled form, indicate the use of XR1 and XR4, respectively: 

Machine word Symbolic instruction 

+0500 00 1 04500 CLA LIST,1 

+0400 00 4 04512 ADD LIST+10,4 



*The integers 3, 5, and 6 may be used in the multiple-tag 
mode. Refer to the IBM 7090 Manual. 
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The extra blank space, just to the left of the tag, is 
included in the assembled machine word for clarity. 

In an instruction with no tag (zero in the tag field), 
the address of the word that is processed is simply the 
operand address. In an instruction with a tag, however, 
the address of the processed word is the operand address 
decreased by the contents of the specified index register. 
This address modification is automatic and temporary; the 
instruction does not change, but the effect is as though 
it were changed during the execution of the instruction. 
As an example, let the C(XRl) = 100; the instruction 

ADD W0RD, 1 

will cause the C(W0RD-1OO) to be added to the accumulator. 

(r) (143.1 - 143.9) — 

INSTRUCTIONS 

LOAD INDEX FROM ADDRESS ( LXA Y,T ) (+0534); 2 cycles. 
The C(Y)2i-35 replaces the contents of the specified index 
register. The C(Y) is unchanged. 

ADDRESS TO INDEX TRUE (AXT Y,T ) (+0774); 1 cycle.' 
Positions 21-35 (Y) of this instruction replace the con- 
tents of the specified index register. 

The following examples illustrate these instructions- 
(1) if the C (NUMBER) = 500, the instruction 



LXA NUMBER, 1 

places the number 500 in XR1; (2) the instruction 

AXT 1000, 1 

places the number 1000 in XR1. 

Several indexing instructions are similar to two- 
address instructions; they contain two operands. These 
instructions have a fourth field, the decrement field , 
which has 15 bits; it is pictured in Pig. 8.2. In these 
instructions, the operation code occupies only three bits, 

001000000000011010010000001001100111 

Operation Decrement "Tag "Address* 
Code 



Fig. 8.2 Format of certain 
indexing instructions 
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S, 1, and 2; the decrement field occupies bits 3-17. The 
15-bit, unsigned number in the decrement field is the 
decrement . 

TRANSFER WITH INDEX INCREMENTED (TXI Y,T,D) (+1); 
2 cycles. The decrement of this instruction is added to 
the contents of the specified index register, and the sum 
is placed in the index register. The computer takes its 
next instruction from location Y. 

This instruction does two distinct things, independ- 
ently of each other: it modifies an index register by a 
specified amount and it transfers control unconditionally. 

The form of the instruction in FAP format is the 
following : 

TXI NEXT, 2, 26 

This instruction increases the C(XR2) by 26 and transfers, 
control to NEXT; if the address of NEXT is 01147, then 
this instruction is pictured in Fig. 8.2. Note that the 
decrement is placed in the variable field, directly after 
the tag with an intervening comma. The three fields in 
the variable field, the address, tag, and decrement, 
appear in that order, but appear in the reverse order 
within the instruction. 

Frequently, it is necessary only to modify the index 
register without transfering control elsewhere; the 
following form is then used: 

TXI *+l,2,26 

The decrement may be written as a negative number: 

TXI NEXT, 1,-10 

Here, the C(XRl) is decreased by 10. Since decrements are 
unsigned numbers, the 2's complement is placed in the 
instruction word; the 2's complement of 12g (10) is 77766g, 
so that the assembled word for this last instruction is 

+1 77766 1 01147 

If the C(XR1) = 24o (20) prior to execution of this instruc- 
tion, it is 00024 Q + 777663 = 000128 ( mod IOOOOO3) after- 
ward; 12g = 10. 

TRANSFER ON INDEX LOW OR EQUAL (TXL Y,T,D) (-3); 
2 cycles. If the contents of the specified index register 
is less than or equal to the decrement of this instruction, 
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the computer takes its next instruction from location Y. 
If the contents of the index register is greater than the 
decrement, the computer takes the next instruction in 
sequence. 

TRANSFER ON INDEX HIGH (TXH Y,T,D) (+3); 2 cycles. 
If the contents of the specified index register is greater 
than the decrement of this instruction, the computer takes 
its next instruction from location Y. If the contents of 
the index register is less than or equal to the decrement, 
the computer takes the next instruction in sequence. 

These last two instructions are conditional transfer 
instructions ; a condition in an index register is tested. 
An example of the former instruction is the following: 

TXL L00P,4,3 

Control goes to L00P if the C(XR4) is less than or equal 
to 3. 

(M) .— (143.9 - 144.3) 



(The following comments apply to 143.9 - 144.3.) 
The following correspondence of instructions exists: 

DELTA 63 IBM 7090 

SETXRI AXT 

SETXR LXA 

INCRXM TXI with an address of 

XJUMP TXL (approximately) 

(M) (144.4 - 144.10) 

(The following comments apply to 144.4 - 144.10.) 

THE VARIABLE FIELD 

The material applies equally well to FAP, except for 
the examples of instructions. Those instructions, however, 
are merely illustrative. 



(r) (145.6 - 146.3) 

Example 8.1 Compute the value of x n . This problem 
was previously coded in Example 7.2. The result is placed 
in P. 
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In this program, XR1 is used to represent the Index I 
of Example 7.2. XR1 is set to 1 initially and increased 
by 1 each loop cycle, after the multiplication occurs. 
Then a test of the C(XRl) is made by a TXL instruction; 
when the index i exceeds n, after just being increased, 
the computation must cease and control passes to D0NE 
instead of being returned to MLTPY for further multiplica- 
tion . 

A test for the case n =0 is included by a test for 0. 
Prior to this, 1 is stored in P to allow for this possi- 
bility. If n 4- 0, P is later set to x". 

Initially, it is assumed that n is a known number; it 
is coded in the decrement of the TXL instruction. 



Locn. Oper. Var. Field 

START AXT 1,1 Set 1=1 

CLA 0NE Set P = 1 

ST0 P 

CLA N Out if n = 0 

TZE D0NE 

LDQ 0NE 

MLTPY MPY X p.x to p 

TXI *+l,l,l i+1 to i 

TXL MLTPY, l,n Test for i = n 

ST0 P 
D0NE HTR 



N n 

X 

P 

0NE DEC 1 

Note that in this program, n Is an integer, placed 
initially in the decrement of the TXL instruction. 
Normally, n would be supplied as data and would be stored 
in the decrement during the running of the program. 

An alternate approach is to have the XR value run 
backwards, from n down to 1, decreasing by 1 each loop 
cycle. This is more common in FAP, because of the fact 
that effective addresses are formed by subtraction of 
index register contents. The following program uses this 
approach. The index register is initially set to n; it 
is tested for equality with 1 at the end of the loop 
(actually it is tested to see if it exceeds 0). As long 
as I exceeds 0, control returns to MLTPY. The initial 
test for zero n is done with a TXL instruction. 
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Locn. Oper. Var. Field 

START LXA N, 1 Set i = n 

CIA 0NE Set P = 1 

ST0 P 

TXL D0NE,1,O Out if n = 0 

LDQ 0NE 

MLTPY MPY X p.x to p 

TXI *+l,l,-l i-1 to i 

TXH MLTPY, 1,0 Test for i = 1 

ST0 P 
D0NE HTR 



N n 

X 

P 

0NE DEC 1 
(r)— _____«___( 2 4 6> 4 _ — 

Example 8.2 Determine the sum of a given set of 
n numbers. The numbers are stored in the block beginning 
at NUMBRS; their sum is to be placed in SUM. 

This problem was previously coded in Example 7.3. 

The ADD instruction must refer to all.n numbers in 
sequence, so that it is tagged; XR1 is used. The effec- 
tive address initially must be NUMBRS,- it must then be 
NUMBRS+1, etc. Since index registers decrement direct 
addresses, it is most convenient to provide a direct 
address that includes the size of the block to be processed. 
If the index register is set to that size, the initial 
effective address is that of the first word in the block. 
If the final index register value is 1, the final effec- 
tive address is that of the last word in the block. This 
approach is feasible if the quantities to be processed are 
stored in ascending memory locations. 

Initially, we assume that n is known to be 100. The 
operand address of the ADD instruction is NUMBRS+100, 
while the index register is initially 100; the final value 
of the index register is 1, so that the final effective 
address is NUMBRS+99, the address of the 100th and final 
number. 
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Locn. Oper. Var. Field 

STZ SUM 

AXT 100,1 

CLA SUM 

L00P ADD NUMBRS+100,1 Add a number 

TXI *+l 1 -1 

TXH L00P,1,O Test for end 

ST0 SUM 
D0NE HTR 



SUM 

NUMBRS BSS 100 

If n is a variable of the problem, as it usually is 3 
it is necessary to set the address of the ADD instruction 
during the run of the program. For this purpose, the data 
instruction at XNUMBR is used, and the STA instruction 
sets the address. (Alternately, the decrement of an 
indexing instruction can be set, as in the first program 
in Example 8.1.) However, it is still necessary to know 
the upper bound on n, so that a block can be set aside. 
Assume that bound is 100; the resulting program follows. 



Locn. Oper. Var. Field 

CLA XNUMBR Set ADD instr. 

ADD N 

STA L00P 

STZ SUM 

LXA N,l 

CLA SUM 

L00P ADD **,1 ( NUMBRS +n ) 

TXI *+l,l,-l 

TXH L00P,1,O 

ST0 SUM 
D0NE HTR 



SUM 
N 

XNUMBR NUMBRS 
NUMBRS BSS 100 



The "**" in the variable field of the second ADD instruc- 
tion indicates that an address is to be supplied when the 
program is run. 
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(R) — ■ ■ (147.2 - 147.8)—— 

Example 8.3 Write a program to evaluate a polynomial 
of order n, for n as large as 100. The number n, the 
coefficients, and the variable x are located in N, the 
block starting at C0EFF, and X, respectively. 

This program was previously coded in Example 7.4. 

Locn. Oper. Var. Field 

CLA XC0EFF Set ADD instr. 

ADD N 

STA L00P+2 

LXA N, 1 

IDQ C0EFF bn to MQ 

L00P MPY X C(AC).x + b, to AC 

XCA 1 . 

ADD **,1 
XCA 

TXI *+l,l,-l 

TXH L00P,1,O 

STQ Q 
HTR 



Q 
N 
X 

XC0EFF C0EFF+1 
C0EFF BSS 101 

Three more indexing instructions are described. The 
first two permit the contents of an index register to be 
saved in storage. The third combines the operations 
performed by the pair of TXI and TXH instructions in the 
last four programs into one instruction. 

STORE INDEX IN ADDRESS (SXA Y,T) (+0634); 2 cycles. 
The contents of the specified index register replaces the 
c ( Y )21-35« The c ( Y )s,l-20 ls unchanged. 

STORE INDEX IN DECREMENT (SXD Y,T) (-0634); 2 cycles. 
The contents of the specified index register replaces the 

°( Y )3-17- Tne C (Y)S. 1,2,18-35 is unchanged. 

TRANSFER ON INDEX (TIX Y,T,D) (+2); 2 cycles. If 
the contents of the specified index register is greater 
than the decrement of this instruction, the number in the 
index register is decreased by the decrement and the 
computer takes its next instruction from location Y. If 
the contents of the index register is less than or equal 
to the decrement, the index register is unchanged and the 
computer takes the next instruction in sequence. 
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The action of this instruction is pictured in Fig. 8.3- 
Location Y in this instruction is usually the return point 
in a loop and hence precedes the test at the TIX instruc- 
tion. 




TIX Y,j,d 



to location Y 



^-(c(X , R J ) : d X Y 

X Rj 



to next instr. 



d = 



decrement 
operand addr. 
index reg. j 



Pig. 8.3 The TIX instruction. 



(R)' 



(148.4 - 152.7)' 



Example 8.4 Given a set of n numbers in LIST, count 
the number of negative numbers present; n is at most 1000. 
Place the count in C0UNT. 

This problem was analyzed in Section 2.2. A flow- 
chart appears in Pig. 8.2 in the book. Index i counts 
loop cycles and index j counts the number of negative 
integers. XR1 and XR2 are used for these, respectively. 
At the end of the program, the C(XR2), the desired count, 
is placed in C0UNT. 

The TIX instruction is used for loop control and the 
STA instruction is used to set the address of the CLA 
instruction that places a number in the AC for testing. 
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Locn. Oper. 



Var. Field 



I 
J 



SET 
SET 
CIA 
ADD 
STA 
LXA 
AXT 
CIA 
TZE 
TPL 
TXI 
TIX 
SCA 
HTR 



1 
2 

XLIST 
N 

TEST 

N,I 

0,J 

** I 

TIXPT 

TIXPT 

»+l,J,l 

TEST, 1,1 
C0UNT, J 



Set Index symbols 



Set address of instr. 



TEST 



Set index i 
Zero index J 
(LXST-fn) 



INCRSE 
TIXPT 



No count if 0 
No count if + 
J+l to j (if number is -) 



Store count 



N 



C0UNT 
XLIST 
LIST 



BSS 



LIST 
1000 



Example 8.5 Given 80 numbers, find the sum of the 
tenth powers of the numbers. The numbers are stored in 
TABLEZ; the sum is to go in SUMZ. 

This problem was analyzed in Section 2,4 (page 36); 
a flowchart appears in Fig. 8.3 in the book. 

Since the flowchart shows two nested loops, two index 
registers are required for the two indices 1 and j. The 
current value of the accumulator during the multiplication 
process is called p. The inner loop of this problem, which 
computes the tenth power of a number, is similar to the 
loop in Example 8.1. The outer loop, which sums the powers, 
is similar to the loop in Example 8.2. Summation cannot 
accumulate in the AC, since that register is also used 
during multiplication. Therefore the computed partial sums 
are stored in SUMZ. Symbolic indices are not used, 
although they would serve well in this program. Because 
the number of inner and outer loop cycles are known, 
addresses can be coded into the program. 
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Locn. Oper. Var. Field 



L00PI 

L00PJ 
TESTJ 

SUMI 

TESTI 



STZ 
AXT 
AXT 
LDQ 
MPY 
TIX 
XCA 
ADD 
ST0 
TIX 
HTR 



SUMZ 
80,1 
10,2 
0NE 

TABLEZ+80, 1 
L00PJ,2,1 

SUMZ 
SUMZ 

L00PI,1,1 



Clear sum 



p- number to p(AC) 
J+l to J and test 

Sum+p to Sum 



0NE DEC 1 
SUMZ 

TABLEZ BSS 80 



Example 8.6 Given a list of 1000 integers, sort them 
into negative and positive integers, and compute the sums 
of the two lists. 

The numbers ai start at location LIST. Let the 
negative integers be placed in the block starting at NEGLST 
and the positive integers be placed in the block starting 
at P0SLST. Let Nj be the Jth location in the NEGLST 
block; let Pk be the kth location in the P0SLST block. 
Place the sums in NEGSUM and P0SSUM; let S n and S p be the 
negative and positive sums. A flowchart appears in 
Pig. 8.4 in the book. 

Three index registers are to be used. XR1 is the 
loop control XR (index l); XR2 and XR4 will be used as 
pointers to designate where in NEGLST and P0SLST the 
integers are to be stored (indices J_ and k). Since index 
registers modify by decrementing rather than by incre- 
menting, the index register contents must be decreased 
each time entries are made into the tables. Thus, to 
store a positive number this sequence is used: 



Oper. Var. Field 

ST0 P0SLST+1OOO,K 
TXI M0D,K,-1 

The first instruction stores the number, and the second 
modifies XR4 (k) so that the next time a positive number 
is stored, it is placed in the next word in the list. The 
TXI instruction transfers control to M0D, where the TIX 
instruction controls the outer loop. In this manner, XR4 
indicates at any time the next available location for 
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storage of an integer. The same is true for XR2. These 
index registers point to the locations in memory* hence 
they are called pointers when so used. 



Locn. Oper. 



Var. Field 



I 


SET 


1 


J 


SET 


2 


K 


SET 


4 




STZ 


NEGSUM 




STZ 


P0SSUM 




AXT 


1000,1 




AXT 


1000, J 




AXT 


1000, K 


FETCH 


CLA 


LIST+1000,1 




TPL 


PLUS 


MINUS 


ST0 


NEGLST+1000, J 




ADD 


NEGSUM 




ST0 


NEGSUM 




TXI 


M0D, J, -1 
P0SLST+1OOO,K 


PLUS 


ST0 




ADD 


P0SSUM 




ST0 


P0SSUM 




TXI 


*+l,K,-l 


M0D 


TIX 


FETCH, 1,1 




HTR 



Set index symbols 



Set main counter 
Set j,k counters 

Fetch a number 
Test sign 
Store in list 
S n + no. to S n 

Modify j 
Store in list 
Sp + no. to Sp 



NEGSUM 
P0SSUM 

LIST BSS 1000 
NEGLST BSS 1000 
P0SLST BSS 1000 



The number of entries in NEGLST and P0SLST are avail- 
able in the index registers after the program is finished 
in complemented form. For example, XR2 contains the ' 
difference between 1000 and the number of negative numbers. 

Two methods of loop control have been used several 
places in the examples in this chapter. One method uses 
the TXI-TXH pair of instructions; the other uses the 
TIX instruction. In the examples here, both approaches 
accomplish the same functions: (l) index modification by 
constant amounts and (2) testing for the end of the looping 
process. In both cases, also, the index runs from an 
initial value, n, down to a final value, usually 1, in 
steps of 1: n, n - 1, n - 2, . .,, 3, 2, 1. If, however, 
it is desired that the index run from one limit down to 
another, where the lower limit is not equal to or less than 
the decrementing amount (the step), the TIX instruction 
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cannot be used; the TXI-TXH pair is required. Assume, for 
example, that the index is required to run as follows: 
100, 98, 96, . .., 44, 42, 40. These instructions can be 
used : 



AXT 100,1 



TXI *+l,l,-2 
TXH L00P,1,39 

As soon as the index decreases to 38, the loop will stop. 
The TIX instruction cannot provide this flexibility. 



(R). 



(153.1 - 153.3)' 



THE TIME-SPACE BALANCE 

This material is discussed in the book. The coding 
example for the 7090 is the following. 

Locn. Oper. Var. Field 



CLA ZER0 

AXT 60,1 

L00P ADD NUMBRS+60,1 

ADD NUMBRS+6l,l 

ADD NUMBRS+62, 1 

TXI *+l,l,-3 

TXH L00P,1,O 

ST0 SUM 



Add 3 numbers 



Modify index by 3 



(S) (At 154.7) 

N0NL00P INDEX REGISTER USAGE 

When index registers are used as counters, their 
contents generally start at 0 or 1 and are increased 
regularly, usually by steps of 1. When used as pointers, 
however, their contents usually decrease so that they point 
to successive memory words at increasing memory addresses; 
this is due to the decrementing nature of these registers. 



(R) (155.0 - 156.3)' 



TABLE -LOOK- AT 

PLACE ADDRESS IN INDEX (PAX 0,T) (+0734); 1 cycle. 
The C(AC)21-35 replaces the contents of the specified index 
register. The C(AC) is unchanged. 
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No address is involved, although a tag is necessary. 
To indicate that the integer in the variable field is a 
tag rather than an address, a comma must precede the tap; 
This is- required by the convention in Section 8.1 in the 
book. An example of one instruction is the following: 

PAX 0, 2 

Another useful instruction is the following 
PLACE INDEX IN ADDRESS (PXA 0,T) (+0754). 1 cycle 
The contents of the specified index register replaces the 
C(AC) 21 _o 5 and the remainder of the AC is cleared. (if 
the tag is 0, the AC is cleared completely.) 
™ v Thls instructl ° n is approximately the opposite of 
PAX, except that the rest of the AC (bits S,Q,P, 1-20) is 
cleared. Thus the instruction ; 



PXA 0,0 

may be used to clear the AC. 

Example 8.7 Given 2000 positive integers, all less 
than 100 in value, determine a histogram as follows- 
compute the distribution of integers in ten equal intervals- 

? ~ 2'*7 ~ 19 > and 90 " 99- The integers are 

located in the block starting at LIST. 

The interval to which each integer belongs can most 
readily be found by dividing it by 10, discarding the 

^Ti^t e f\ If ^ he ^ uotlent ^ q, the integer lies in the 
(q+l)th interval. 

The value q is then used to set an index register and 
thereby to select one of 10 counters, which is then incre- 
mented by 1. These counters count the number of integers 
in the 10 intervals. A flowchart is drawn in Fig. 8 5 in 
the book. The 10 counts are n, , n 0 , . . . a n 

1' 2' " 9 10* 

Locn. Oper. Var. Field 

A *T 10,2 Clear block 

STZ CTABLE+10,2 

TIX *-l,2,l 

AXT 2000, 1 

NEW0NE LDQ LIST+2000, 1 Fetch an integer 

PXA 0,0 Clear AC 

DVP TEN 



XCA 



Int./lO to AC 



PAX 0,2 to XR2 

?££ CTABLE+9,2 Fetch* proper counter 

ADD 0NE nq + 1 to n a 

ST0 CTABLE+9,2 q 

TIX NEW0NE,1,1 



HTR 



(Cont'd. ) 
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Locn. Oper. 



Var. Field 



0NE DEC 

TEN DEC 

CTABLE BSS 

LIST BSS 



1 

10 
10 



2000 



The 10 counters 



(R) 



(156.7 - 157.8) 



PUSH -DOWN LISTS 

Example 8.8 The block of 1000 words at PDLIST 
contains a set of k items (numbers), the first of which is 
located in PDLIST, the head of the list. The items are 
stored in successive memory words; the number (1000-k) is 
stored in XR4. 

The following actions occur: 

(1) An item is added to the bottom of the list, and 
the C(XR4) is decreased by 1 to reflect the 
addition . 

(2) An item is removed from the top of the list, the 
list is moved up in its entirety one position, 
and the C(XR4) is increased by 1 to reflect the 



The sequence of these actions is unknown- they may Occur 
in any sequence, e.g., (l), (2), (2), (2), (l), ... . 
This situation may be likened to a purchase order proces- 
sing scheme, where orders are handled in the order 
received; new orders go at the bottom while the top order 
is processed first. This approach is sometimes called 
"first-in-first-out" sequencing. 

The number k may be zero, but we assume it is never 
negative; that is, no more items are removed than are added 
if we start with an empty list. 

Two subprograms (or routines ) are required; one to add 
an item and one to remove an item. These must be coded 
independently, since that is how they are used. Let the 
item to be removed be stored in 0LD. 

The add-item routine (ADDITM) consists of these steps: 

1. The C(NEW) must be placed at the bottom of the 
list; the address of the first free location is 
given as PDLIST+1000, 4 since the C(XR4) is -k, 
the number of items in the list. 

2. The C(XR4) must be decreased by 1. 

The flowchart in Fig. 8.6a in the book shows the ADDITM 
routine. The i fch word in PDLIST is Lj_. 



removal . 
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The remove-item routine (REMITM) consists of these 
steps : 

1. The C(PDLIST), the first item, must be stored in 
0LD. 

2. The k-1 remaining items must be moved up one 
word each. 

3. The C(XR4) must be increased by 1. 

To accomplish the movement of k-1 items , a loop is 
established. The TXI-TXH pair of instructions is used 
because the index runs from 1000 down to 1002 - k; to 
effect this, the decrement in the TXH instruction must be 
1 less, 1001 - k. After XR4 is increased by 1 so that it 
contains this number, its contents are placed in the TXH 
decrement by the SXD instruction. 



Locn . 


Oper. 


Var. Field 




ADDITM 


CIA 


NEW 


Put item at bottom 




ST0 


PDLIST+1000,4 


of list 




TXI 


*+l,4,-l 




REMITM 


CLA 


PDLIST 


Put first item in 0LD 




ST0 


0LD 




TXI 


*+l,4,l 


XR4 : 1001 - k 




SXD 


TEST, 4 






AXT 


1000,1 


Move k-1 items 


M0VE 


CLA 


PDLIST+1001,1 


up 1 position 




ST0 


PDLIST+1000, 1 




TXI 


*+l,l,-l 




TEST 


TXH 


M0VE,1,** 


(1001 - k) 



( M ) (159.4 - 161.5) 

(The following comment applies to 159.4 - 161.5.) 
This correspondence exists: 

IBM 7090 DELTA 63 

CLA L0AD 

( R ) i (162.4 ~ 164.6) 

USING INDIRECT ADDRESSING 

The following pseudo-operation is also used to set 
aside blocks of storage in memory. Under certain condi- 
tions, it is more useful than BSS. 
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BES (Block ending with symbol). A "block of words of 
the size indicated in the variable field of this pseudo- 
operation is set aside for later use at the point in the 
program at which this card occurs. The location associated 
with the symbol appearing in the location field is the 
first address after the block . Thus, in the following 



if the last location used before the block was 00300, then 
00301 through 00610, 3108 (200) locations long, are set 
aside for the block, and location 006ll is associated 
with LIST. 

Example 8.9 Given five blocks of numbers and a 
sorted list of the starting addresses of the blocks, write 
a program to process the blocks in the indicated sequence. 
The program is to be written so that each number to be 
processed is loaded into the accumulator and processed in 
some manner. (This processing is not of interest here 
and is therefore not coded. ) 

Much detail and analysis of this problem is given in 
the book. Note, however, that the addresses in the S0RTED 
block are the BES type. The coding in FAP follows. 

Locn. Oper. Var. Field 



LIST 



BES 



200 



START 



AXT 
LXA 
CLA* 



5,2 

BLSIZE, 1 
S0RTED+5, 2 



Set i index 
Set j index 



(Processing routine 



here ) 



TIX 
CAL 
ADD 
SLW 
TIX 
HTR 



START+1, 1, 1 

START 

0NE 

START 

START, 2,1 



Chapter 9 
SEQUENCING IN MEMORY 



(M) 



(168.2 - 168.6) 



(The following comment applies to 168.2 - 168.6.) 
The 7090 compare Instruction is abbreviated as CAS, 
and bits S and 1-35 of the accumulator are involved. 



Example 9.1 Given a set of n numbers (ai,82,...)i 

determine the largest number. The numbers, of which there 
are no more than 1000, are stored in the block starting at 
SET; thelargest number is to be stored in BIG. 

A flowchart appears in Fig. 9.1 in the book. Ini- 
tially, the first number is placed in the AC. Then, the 
C(AC) is successively compared with a2> a 3> ••>> until a 
larger number is found. When a larger number is found, it 
is placed in the AC and the process repeats, the C(AC) 
being compared to all numbers next in sequence. After all 
numbers are tested, the AC contains the largest number in 
SET; it is stored in BIG. The flowchart indicates that 
the index is initially set to 1, which causes ai to be 
compared to itself. Although unnecessary, this is done 
for uniformity with loops in other programs. 

Locn . Oper. Var. Field 



(R) 



(168.7 - 169.8) 



FETCH 



NEXT 



CLA 
ADD 
STA 
STA 
CLA 
LXA 
CAS 
TRA 
TRA 
CLA 
TIX 
ST0 
HTR 



XSET 
N 



FETCH 
FETCH+3 



NEXT 
NEXT 
**,1 



FETCH, 1,1 
BIG 




a-, to AC 



Set instructioss 



( SET+n ) 
C(AC) greater 
CfAC) equal 
C(AC) less; a., to 



AC 



(Cont'd. ) 
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Locn. Oper. Var. Field 

BIG 
N 

XSET SET 
SET BSS 1000 

(S) (At 170.1) — 

The 7090 computer has a number of test instructions 
that are of the skip variety; each tests a condition within 
the computer and causes the computer to continue in 
sequence or skip one instruction, depending on the outcome 
of the test. Two such instructions are the following. 

STORAGE ZERO TEST (ZET Y) (+0520); 2 cycles. If the 
C(Y)i-35 is zero, the computer skips the next instruction 
and proceeds from there. If it is not zero, the computer 
takes the next instruction in sequence. The C(Y) is 
unchanged. 

STORE NOT ZERO TEST (NZT Y) (-0520); 2 cycles. If the 
C(Y)i_35 is not zero, the computer skips the next instruc- 
tion and proceeds from there. If it is zero, the computer 
takes the next instruction in sequence. The C(Y) is 
unchanged. 

(R) (170.5 - 171.7) 



FIXED BRANCHING 

CLEAR AND SUBTRACT (CLS Y) (+0502); 2 cycles. The 
negative of the C(Y) replaces the C(AC)s, 1-35- Positions P 
and Q of the AC are set to zero. The C(Y) is unchanged. 

Example 9.2 Code a branch point that sends control 
alternately to operations P and Q. 

There are a number of ways to code an alternating 
branch point. Using instructions already studied, we shall 
base the decision on the sign of a number in memory. The 
sign is reversed every time control is sent to the branch 
point, after which the sign is tested with a TPL instruc- 
tion. Since the sign is alternately plus and minus, the 
branching occurs. A flowchart appears in Pig. 9*2 in the 
book. 

Locn. Oper. Var. Field 

CLS SIGNWD Change sign of SIGNWD 

ST0 SIGNWD 

TPL 0PERP Tra to oper. P 

TRA 0PERQ, Tra to oper. Q 



SIGNWD DEC 1 

If the initial sign of SIGNWD is plus (as here), control 
will first go to Q, since the sign is changed before the 
test. The C (SIGNWD) will be alternately +1 and -1. 
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Example 9.3 Code a branch point that sends control 
to one of four operations in cyclic sequence: P, Q, R, S, 
Qj • • • . 

A tagged TRA instruction is used to produce a cycling 
transfer of control (with XRl). The effective address of 
this instruction is BRANCH, BRANCH+1, . . . , BRANCH+3 > in. 
sequence, sending control, respectively, to 0PERP, 0PERQ, 

0PERS. Control then goes to operations P, Q, R, 
and S. To produce these effective addresses, XRl is set 
to 3, 2, 1, 4, 3, 2, 1, ... . Decreasing the C(XRl) by 1 
is no problem, but following 1 with 4 requires special 
treatment. Initially, early in the program, the C(XRl) 
is set to 4 and is then decreased by 1 just prior to each 
transfer at the branch point. A TXH 
for the case when the (XRl) falls to 
is reset to 4 before the transfer. 

A flowchart appears in Fig. 9.3 in the book. 



instruction 
0, at which 



tests 
time it 



Locn . 


Oper. 


Var. Field 




AXT 


4,1 




• • • 

TXI 


*+i,i,-i 




TXH 


JUMPS, 1,0 




AXT 


4,1 


JUMPS 


TRA 


BRANCH+4, 1 


BRANCH 


TRA 


0PERP 




TRA 


0PERQ 




TRA 


0PERR 




TRA 


0PERS 



(Set early in program) 



Test index; tra if 1 
or greater; reset if 0 



C(XR1) = 



4 

3 
2 
1 



The program can be made slightly simpler with the use 
of indirect addressing, flagging the first TRA instruction 
(at JUMPS) and removing the operations from the next four 
instructions. The extension of this technique to any 
number of paths is straightforward. 



(R). 



'(172.7 - 174. SO- 



VARIABLE BRANCHING 

Example 9.4 Code a 
one of five locations 



to 



sends control 
if the 



branch point that 

(XI, X2, X5 

C( DIGIT) =1, 2, 5, respectively. 

This problem is similar to the four-way branching 
problem of Example 9.3, except that the branching depends 
on the data. (Presumably, the C(DIGIT) is determined 
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rhi-Mnc the urogram execution and thus depends on data.) 
Alf tLt Vnelessary is that the C (DIGIT) be loaded into 
an index register and that a jump be effected with a 
tagged TRA instruction. 



Locn. Oper. 



LXA 
TRA* 



JTABLE 



Var. Field 

DIGIT, 1 
JTABLE +5, 1 

X5 
X4 

X3 
X2 
XI 

If the C (DIGIT) = j, then j is placed in XR1 nd the 
effective address of the TRA instruction is JTABLE+5-J, 
so that a transfer to Xj occurs, as required. A check 
on the C(DIGIT) might be necessary to avoid an erroneous 

tranS ExamDle 9.5 Code a branch point that sends control 
to on e Tetglt locations (LO, LI, L7), depending 

upon the signs of three variables, a, b, and c, in the 
following manner: 





+ 



LO 
LI 



L2 
L3 



a 



L4 
L5 



L6 
L7 



Two distinct approaches are possible here. In one, 
the signs of the three variables are tested in sequence; 
an eight-way branch results. A flowchart is given in 
FiK 9.4a in the book. In the other, a digit J is built 
up for an eventual jump to location L j . Weights can be 
assigned to the algebraic signs of the variables: 



a 


• 
• 


ii _ 


• 


0; 


"+": 


1 


b 


• 
• 


ii _ 


• 




"+" : 


2 


c 


• 
• 


t! 


• 


Oj 


ii,h . 


4 
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As the signs are checked, the appropriate weights are 
summed to form the proper value of j. Finally, j is used 
to modify a transfer address as in the last example. 

Locn. Oper, 



Var. Field 



BRANCH 



AA1 


U, 1 


u to J 


CLA 


A 


Test a 


TMI 


*+2 




TXI 


*+l,l,+l 


J+l to 


CLA 


B 


Test b 


TMI 


*+2 




TXI 


*+l,l,+2 


j+2 to 


CLA 


C 


Test c 


TMI 


*+2 




TXI 


*+l,l,+4 

BRANCH+7,1 

L7 


j+4 to 


TRA* 





(R). 



L6 

L5 
L4 

L3 
L2 
LI 
LO 



(176.4 - 178.7)' 



Example 9.6 Five coding sequences are available for 
use in a computer problem: A, B, C, D, and E. They are 
to be used in sequence three ways, depending upon which of 
three conditions is met by data being processed: 

Case 1: use A, B, and D. 

Case 2: use A, C, D, and E. 

Case 3: use B, C, and D. 
Two approaches are analyzed and flowcharted in the 
book. The first method uses a pair of instructions to 
effect the switching as follows: 



Oper. 



Var. Field 



CLA INDA Skip A if zero 

TZE SKIPA 
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The second method uses the following types of instruc- 
tions before each box: 

TRA *+3,l 

TRA *+2 Here if CfXRl) = 2 

TRA SKIPA Here if C(XRl) = 1 



Chapter 10 
SUBROUTINES 



(r) (182.10 - 183.4) — 

Example 10.1 Write a program to evaluate e: 

e = a 2 + b 2 + c 2 + d 2 

The squares, as they are computed, must be- stored 
temporarily. A three-word block (TEMP) is set aside for 
this purpose. As in earlier programs, it is assumed all 
products are small enough to remain in the MQ with fixed- 
point multiplication. 

Locn. Oper. Var. Field 

SUMSQ LDQ A 

MPY A 

STQ TEMP 

LDQ B 

MPY B 

STQ TEMP+1 

LDQ, C 

MPY C 

STQ TEMP+2 

LDQ D 

MPY D 
XCA 

ADD TEMP 

ADD TEMP+1 

ADD TEMP+2 

ST0 E 

TEMP BSS 3 
( R ) (185.4 - 185.9) 

Example 10.2 Write three open subroutines, each of 
which computes the sum of a set of numbers; the sets are 
50, 100, and 250 in size. 

The sets begin at locations LIST1, LIST 2, and LIST3 • 
place their sums at SUM1, SUM2, and SUM3, respectively. ' 
Assume that the latter three locations are cleared. 



Square a 
Square b 
Square c 
Square d 
Sum the squares 
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Oper. Var. Field 



AXT 50,1 

PXA 0,0 

ADD LIST 1+50,1 

TIX *-l,l,l 

ST0 SUM1 

AXT 100,1 

PXA 0 0 

ADD LIST2+100,1 

TIX *-l,l,l 

ST0 SUM2 

AXT 250,1 

PXA 0 0 

ADD LIST3+250,1 

TIX *-l,l,l 

ST0 SUM3 



( S ) (At 186.4) 

MACRO-INSTRUCTIONS 

In BE-FAP, the coding sequence defining the basic 
structure of an open subroutine is delimited by the pseudo- 
operations MACR0 and END. * There is no ambiguity between 
this END and the last card of a FAP program because each 
MACR0 pseudo-operation is matched by the assembler to an 
END pseudo-operation. 



( R ) (186.5 - 186.7) 

The routine of Example 10.2 would be written as 
follows as a macro-definition: 

Locn. Oper. Var. Field 

SUMBLK MACR0 A,B,C 

AXT B,l 

PXA 0,0 Clear AC 

ADD A+B, 1 

TIX *-l,l,l 

ST0 C 

END 



*BE-FAP is the assembler at Bell Telephone Laboratories 
for use with the 7090 and 709^ computers; it is widely 
used, with variations, at other installations of that 
computer. 
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■(188.1 - 188.5)' 



(r) 

TRANSFER OP CONTROL 

A special instruction is available for the purpose of 
transfering control to a closed subroutine -P^V^e oi 

TRANSFER AND SET INDEX (TSX Y) (+0074); 2 cycles The 
2's complement of the computer's instruction counter ' 
contents is placed in the specified index register. The 
computer takes its next instruction from location Y 

By storing in an index register the location of the 
transfer instruction, i.e., the location from where control 
came, a means is provided to return control to the main 
program For example, assume control is to return to the 
instruction following the TSX instruction, i.e., to READY+1 



Locn. Oper. 
READY TSX 



Var. Field 
SUBRTE,4 



The following instruction, located within the subroutine, 
effects the return: ' 



TRA 



1,4 



Let L be the location of the TSX instruction, i e the 
address READY. Since the C(XR4) = -L, the effective address 
of the transfer instruction is l-(-L), 
The use of the TSX instruction or 
a means for the return of 
convention, XR4 is almost 
example of a linkage that 
the following. In the main program" 
are used: 



to establish 
linkage . By 
purpose. An 
registers is 
instructions 



or L+l, as required, 
other instructions 
control is termed a 
always used for this 
does not use index 
these 



Locn. Oper. Var. Field 



CLA 
TRA 



RETURN 



SUBRTE 



Place address of this 

instr. in AC 
Return here 
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The subroutine coding is started and terminated "by these 
instructions : 

StJBRTE ADD TW0 Add 2 to AC to produce 

STA G0BACK return location 



G0BACK TRA. ** 

The location address in the accumulator must be increased 
by two to effect a return to RETURN. 

(R) (189.7 - 190.2) 

TRANSFER OF INFORMATION 

As an example, if a closed subroutine SUMBLK is 
written to sum a set of numbers, as coded in Example 10.2, 
one calling sequence might be: 

Locn. Oper. Var. Field 

M0VE TSX SUMBLK, 4 

LIST1 
50 

SUM1 

As seen here, the information stored in the calling 
sequence may be of several types: (a) the address for a 
result or the address of one data word may be given 
(e.g., SUM1); (b) the starting address of a block of words 
may be given (e.g., LISTl); (c) the size of a block of 
words may be given (e.g., 50). 

The subroutine has the job of obtaining the informa- 
tion for its use from the calling sequence. The effective 
address of the first word following the TSX instruction is 
given by "1,4," so that the following instructions are 
equivalent : 

CLA 1,4 
CLA M0VE+1 

These instructions load the address LISTl into the accumu- 
lator. Similarly, the other arguments in the calling 
sequence can be addressed with "2,4" and "3.4 . 

The alternate linkage described, which uses no index 
registers, can also be used with parameters placed in the 
words immediately following the transfer to the subroutine. 
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Within the subroutine, the addition of 2, 3, or 4 to the 
address in the accumulator at the start provides the 
addresses of the parameters in the main program. Addition 
of 5 provides the return address. 



(R)' 



(190.7 - 191.6)- 



Example 10.3 Write the SUMBLK macro-instruction of 
Section 10.2 as a closed subroutine. 

^ Sln ce all parameters are given in the calling sequence 
they must be moved to the body of the subroutine. Three 
instructions of the form 



CLA 



M,4 



where M i 
fields of 
tions sto 
routine . 
sum of th 
the macro 
routine , 
address a 
calling s 



s 1, 2, and 3, load the contents of the address 

the calling sequence into the AC. STA instruc- 
re these addresses in the proper places in the 

The heart of the subroutine, which computes the 
e numbers in the block, is the same in form as 
-instruction. Because XR1 is used by the sub- 
its contents must be saved. Note that the 
t STJB1 is set by adding two parameters from the 
equence . 



Locn. Oper. Var. Field 



SUMBLK 


SXA 




CLA 




ADD 




STA 




CLA 




STA 




CLA 




STA 


SUB2 


AXT 




PXA 


SUB1 


ADD 




TIX 


SUB3 


ST0 




LXA 




TRA 



SAVEX1,1 

1A 

2,4 

SUB1 

2,4 

SUB2 

3,4 

SUB3 

**,1 

0,0 

*-i,i,i 
#* 

SAVEX1,1 
4,4 



Save XR1 

Fetch list address 
Add list size 

Fetch list size 

Fetch sum address 

(size ) 
Clear AC 

(list addr + size ) 

(sum address) 
Restore XR1 



SAVEX1 
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subroutine is generalized so that any calling 

form can call upon it. The following 



This 

sequence in the proper _ 

calling sequence will result in the summation of the 100 
words at LIST 2 : 



TSX SUMBLK, 4 
LIST 2 
100 
SUM2 



(191.7 - 192.4)- 



(R) 

Example 10.4 Write SUMBLK as a closed subroutine. 
Since the size of the block, rather than the address of a 
location containing the size, is given in the calling 
sequence, indirect addressing is not used to obtain that 
parameter. The tag on the ADD instruction (see 
Example 10.3) must be placed in the calling sequence. 
-The calling sequence: 

Locn. Qper. Var. Field 

TSX SUMBLK, 4 

LIST2+100,1 

100 

SUM2 

The subroutine (note the alternate method of restoring 



XR1) : 

SUMBLK 

SUB2 



SAVEX1 



SXA 

CLA 

STA 

AXT 

PXA 

ADD* 

TIX 

ST0* 

AXT 

TRA 



SAVEX1,1 

2,4 

SUB2 

**,1 

0,0 

1,4 

*-l,l,l 
3,4 
** ]_ 

4,4 



Fetch list size 
(size ) 



Restore XR1 



The flexibility offered by the combined use of indirect 
addressing and tags on both the direct and indirect 
addresses is illustrated. 
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(R) (192.6 - 192.8) 

Lo.cn. Qper. Var. Field 



SUMBLK MACR0 
TSX 



A,B,C 

SUMBLK, 4 

A 

B 

C 



END 

The macro-call : 

SUMBLK LIST1,50,SUM1 
( R ) (193.0 - 195.3) 



Example 10.5 Write a closed subroutine for the 
evaluation of e : 

e = a 2 + b 2 + c 2 + d 2 

The calling sequence: 

Locn. Qper. Var. Field 

TSX SUMSQ,4 
A 
B 
C 
D 
E 



The subroutine : 



SUMSQ 



LDQ* 

MPY* 

STQ 

LDQ* 

MPY* 

STQ 

LDQ* 

MPY* 

STQ 

LDQ* 

MPY* 

XCA 



1,4 

1,4 

TEMP 

2,4 

2,4 

TEMP+1 

3,4 

3,4 

TEMP+2 

4,4 

4,4 



(Cont'd. ) 
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Locn. Oper. Var. Field 

ADD TEMP 

ADD TEMP+1 

ADD TEMP+2 

ST0* 5,4 

TRA 6,4 

TEMP BSS 3 

In this example, the use of indirect addressing does 
not slow down the subroutine. In Example 10.4 flagging is 
effective within a loop that cycled n times. In this sub- 
routine no loop is present. 

Example 10.6 Write a program to evaluate 



F 



= + y x 2 - y 2 + (x 2 + y 2 + z 2 + u 2 ) 



Two subroutines are assumed available for this purpose: 
SQP$0T, which computes the square root of the C(AC) and 
leaves the result in the AC, and SUMSQ, as in Example 10.5. 



Locn. Oper. 


Var. Fie! 


CLA 


X 


TSX 


SQR00T,4 


ST0 


TEMP 


LDQ 


Y 


MPY 


Y 


STQ 


TEMP+1 


LDQ 


X 


MPY 


X 


SCA 




SUB 


TEMP+1 


TSX 


SQR00T,4 


ST0 


TEMP+1 


TSX 


SUMSQ, 4 




X 




Y 




Z 




U 




TEMP+2 



x to AC 

Store sq. root of x 
2 

Store y 



2 2 
Form x - y 



(For result) 



(Cont 'd. ) 
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Locn. Qper. 



Var. Field 



CLA 
ADD 
ADD 
ST0 
HTR 



TEMP 
TEMP+1 
TEMP+2 
F 



TEMP 



BSS 



3 



X 
Y 
Z 
U 



The symbols SQR00T and SUMSQ must be defined. 

In Section 8.4, it was pointed out that indirect 
addressing may be used with tags on both the direct and 
indirect addresses. This technique is illustrated by an 
example. 

Example 10.7 The block at LISTA contains 100 numbers 
whose cube roots are to be computed; the results are to 
be placed in the block at LISTB. Write a routine to per- 
form the operations, marking use of a CBR00T subroutine. 

It is assumed that CBR00T has two addresses in its 
calling sequence, the address of the argument (to be cubed) 
and the address for the result. A loop is established 
containing the calling sequence. The addresses in the 
calling sequence are tagged. Within the subroutine, a 
flagged reference places one of the arguments in LISTA in 
the AC; because of the tag, all arguments are fetched in 
sequence. 

Locn. Qper. Var. Field 



BEGIN 



AXT 
TSX 



100,1 
CBR00T/4 
LISTA+100,1 
LISTB+100, 1 
BEGIN, 1,1 



TIX 
HTR 



LISTA 
LISTB 



BSS 
BSS 



100 
100 
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Within the subroutine , the argument is placed in the AC 
and the result is subsequently stored in LISTB by the 
instructions 

CIA* 1,4 

m * • 

(R) (196.4 - 196.5) 

Oper. Var. Field 



TZE 5,4 
TPL 6,4 
TMI 7,4 



Zero return 
Positive return 
Negative return 



Chapter 11 
INPUT-OUTPUT OPERATIONS 



(S)~ — ■ (At 206.8)— 

Following are some examples of corrections cards used 
with 7090 monitors: 



Locn. Oper. Var. Field 

octal correction card: 237 0CT 050000211145 

decimal correction card: 4420 DEC 22,33,88 

As the result of the first card, the octal word 
050000211145, which corresponds to the instruction 

CIA /0/lll45,2 

is placed at location 00237, overwriting whatever was 
there previously. 

As the result of the second card, the integers 22, 
33 j and 88 would be placed at locations 04420, 04421, and 
04422, respectively. The convention on the use of several 
fields of a FA P DEC card applies to these correction cards. 

(r) (208.8 - 209.10) 

ALPHANUMERIC INFORMATION 

The 7090 BCD character codes are given in the accom- 
panying table. Six bits are used for each character. The 
coding is done by the card reader to put information from 
cards on tape or in memory. The codes listed apply to 
characters in memory; in some cases, the codes on magnetic 
tape differ. The code is generally termed binary-coded- 
decimal or BCD. For compactness, the codes are generally 
expressed as 2-digit octal numbers, as in the table. The 
term Hollerith is used synonomously with BCD. 
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BCD CHARACTER CODES 
Character BCD code Character BCD code Character BCD code 



0 


00 


D 


24 


Q 


50 


1 


01 


E 


25 


R 


51 


2 


02 


F 


26 




53 


3 


03 


G 


27 




li 


4 


04 


H 


30 


(blank) 


60 


5 


05 


I 


31 


/ 


6l 


6 


06 


■ 


33 


S 


62 


( 


0( 


) 


34 


T 


o3 


8 


10 




40 


U 


64 


9 


11 


J 


41 


V 


65 




13 


K 


42 


W 


66 


ii 


14 


L 


43 


X 


67 


+ 


20 


M 


44 


Y 


70 


A 


21 


N 


45 


Z 


71 


B 


22 


0 


46 


» 


73 


C 


23 


P 


47 


( 
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(R) (210.7 - 211.1) 

PSEUDO-OPERATIONS 

The PAP assembler has two pseudo-operations for the 
generation of alphanumeric information within a symbolic 
program. 

(l) BCI (binary-coded information). The first 
character in the variable field of this pseudo-operation 
is a decimal digit n, from 1 to 9- The second character 
is a comma. The following string of 6n characters, if n 
is in the range from 1 to 9, is stored by the assembler in 
the n successive computer words at the point in the program 
at which this card occurs. If n = 10, the comma must 
appear in column 12, thus providing 60 columns (columns 13 
through 72) for characters; "10 BCD words are then generated. 
Thus, to store 6 words of BCD information, one writes 

Locn. Oper. Var. Field 

STRING BCI 6,T0DAY THE DATE IS 0CT0BER 24, 1961. 

The symbol STRING is assigned to the first word containing 
this information, which is stored in STRING through 
STRING+5. If the count n is insufficient to account for 
the entire string, only the first 6n characters are stored 
in n words. If the count is too large, blanks fill up 
remaining space to a total of n words. 
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(2) BCD. This pseudo-operation is used in the same 
manner as BCI, except that the comma is omitted. If 
10 BCD words are to be generated, the character 0 must 
appear in column 12, followed in column 13 by the start of 
the string. 

(M) —(211.2 - 213.2) 

(The material in 211.2 - 213.2 consists of a typical 
approach to monitor input-output subroutine usage. Actual 
usage varies a great deal among 7090 computers. ) 



Chapter 12 
PROGRAM PLANNING 



(R) 



(235.1 - 235.4) 



MINIMIZING RUNNING TIME 

The time for each instruction to be executed, in 
number of cycles, is indicated in the individual instruc- 
tion descriptions. The 709 cycle time is 12 microseconds, 
the 7090 cycle time is 2.18 microseconds, and the 7094 
cycle time is 2 microseconds. 

There are a few general rules that indicate the cycle 
times of 7090 instructions. (l) Instructions involving 
only the arithmetic unit registers (AC, MQ, XRs ) require 
1 cycle; examples are XCA, PAX, and PXA. In addition, 
TRA, TMI, TPL, and A XT require 1 cycle. (2) Most instruc- 
tions require 2 cycles. (2) The CAS instruction and some 
instructions requiring testing of each bit in the AC and/ 
or memory word require 3 to 4 cycles. (4) All floating- 
point instructions and fixed-point multiplication and 
division require approximately 2 to 15 cycles, depending 
on several factors.* 



MINIMIZING MEMORY SPACE 

Example 12.2 Assume that, at location PUT in a 
routine, the contents of the accumulator is to be stored 
in BL0CK if the sequence is being used for processing a 
list of 1000 numbers or more, and is to be stored in LIST 
otherwise . 

The decision on which version to use is made just 
before its use. If the C (NUMBER) is nonzero, the version 
containing the following instruction is used: 

Locn. Oper. Var. Field 



*There are some reductions in these figures for the 
7094 instructions. 



(R) 



(235.8 - 236.3) 



ST0 



LIST 
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ing: 



The sequence to set the ST0 instruction is the follow- 



ZER0 

PAST 

PUT 

W0RD1 
W0RD2 



CIA 
TZE 
CIA 
STA 
TRA 
CLA 
STA 



ST0 



NUMBER 

ZER0 

W0RD1 

PUT 

PAST 

W0RD2 

PUT 



Test NUMBER. . . 
transfer if zero 



The routine 



• • • 



LIST 
BL0CK 



(240.3 - 241.6) 



( R ) 

DYNAMIC ALLOCATION 

Example 12.3 Assume that the quantities p, q, and r 
are read initially into memory from data cards, into loca- 
tions P, Q, and R. Write a program that assigns blocks of 
words to blocks A, B, C, and D. 

(Refer to the book for a description of this problem 
and an analysis . ) 

The coding to accomplish the test on the total size 
of blocks required is the following: 



Locn. Oper. 

CLA 
ADD 
ADD 
ADD 
ADD 
ADD 
ADD 
CAS 
TRA 
TRA 



Var. Field 

P 
P 

Q 
Q 
R 
R 
R 

TWELVE 
T00BIG 
*+l 



Form 2p+2q+3r 



(Refer again to the book for further comments.) 
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ASSIGN 


CLA 


BEGINA 




ADD 


ASIZE 




ST0 


BEGINB 




A T\T\ 

ADD 


BSIZE 




ST0 


BEGINC 




ADD 


CSIZE 




ST0 


BEGIND 


BE GIN A 




a" * ' 


BEGINB 




#* 


BEGINC 




■** 


BEGIND 




*# 


A 


BSS 


24000 



(Refer again to the book. ) 

( r) (243.1 - 244.10) 

SHIFTING 

ACCUMULATOR RIGHT SHIFT (ARS Y) (+0771 ); 2-4 cycles. 
The C(AC)q p !_35 are shifted right Y bit positions. Bits 
shifted past'position 35 are lost. Vacated positions are 
filled with zeros. 

ACCUMULATOR LEFT SHIFT (ALS Y) (+0767); 2-4 cycles. 
The C(AC)q p 1-35 are shifted left Y bit positions. Bits 
shifted past'position Q are lost. Vacated positions are 
filled with zeros. 

LOGICAL RIGHT SHIFT ( LGR Y) (-0765); 2-7 cycles. The 
C(AC)q p i_35 and the C(MQ), considered as a single regis- 
ter, are 'shifted right Y bit positions. Bits leaving 
position 35 of the AC enter the sign of the MQ. The sign 
of the AC is unchanged. Bits shifted past position 35 of 
the MQ are lost. Vacated positions are filled with zeros. 

LOGICAL LEFT SHIFT ( LGL Y ) (-0763); 2-7 cycles. The 
C(AC)o P 1-35 and the C(MQ), considered as a single regis- 
ter, are 'shifted left Y bit positions. Bits leaving the 
sign of the MQ enter bit 35 of the AC. The sign of the AC 
is unchanged. Bits shifted past the Q position are lost. 
Vacated positions are filled with zeros. 

ROTATE MQ LEFT (RQL Y) (-0773); 2-4 cycles. The 
C(MQ) are shifted left Y bit positions in an "end-around 
fashion. Bits shifted out of the sign reappear in posi- 
tion 35. No bits are lost. 

In addition to these shift instructions, there are 
two others, LONG RIGHT SHIFT and LONG LEFT SHIFT, that are 
similar to LOGICAL RIGHT and LOGICAL LEFT. In the LONG 



shifts, only bits 1-35 of the AC and MQ shift. The sign 
of the register that bits are shifted into is made to 
agree with the sign of the other register, while the latte 
is unchanged.* 

Examples of shifting operations follow. 
If the C(AC) are (in binary) 

.QP 

-11011000000110111000110101011111000110 
then execution of the instruction 

ARS 10 

changes the C(AC) to 
QP 

-00000000001101100000011011100011010101 
If the C(AC) and the C(MQ) are respectively (in 



QP 

+0000000011010110110000001010010000000 

-00000100011010010111111111001001001 
then execution of the instruction 

LGL 24 

changes the contents of these registers to 
QP 

+1010010000000100000100011010010111111 

-11001001001000000000000000000000000 
If the C(MQ) are (in octal ) 

+025044210776 



Ll +S It B S lf £ {LLS) ^truction with an address of 0 
has the effect of moving only the MQ sign to the AC sign 
This means may be used in integer division for putting 
the dividend sign in the AC. y g 



68 



then execution of the instruction 

RQL 27 



changes the C(MQ) to 

-376025044210 

Note that the initial "-3" -is actually 7. 
MASKING 

Masking is accomplished by the use of the following 
logical instructions. ^ 

"AND" TO ACCUMULATOR (ANA Y) (-0320); 3 cycles. 
Corresponding bits in the AC P ,i-35 and location Y are 
compared: where both contain a 1 in any position, the bit 
in the AC is set to 1; where either or both are 0, the 
bit in the AC is set to 0. The C(Y) is unchanged. The S 
and Q positions in the AC are set to zero,. 

"AND" TO STORAGE (ANS Y) (+0320); 4 cycles. Corre- 
sponding bits in the ACp,i-3 5 and location Y are compared; 
where both contain a 1 in any position, the bit in loca- 
tion Y is set to 1; where either or both are 0, the bit in 
location Y is set to 0. The C(AC) is unchanged. 

As an example of the use of the ANA instruction, we 
assume the following: 

octal binary 

C(AC) = 0332005777^ = 000011011010000000101111111111100000 

c(y) = 007777777400 = OOOOOOlllllllllUlllllllllllOOOOOOOO 

Then, execution of this instruction 

ANA Y 



changes the C(AC) p 1 _ 35 to the following: 

003200577440 = 000000011010000000101111111100000000 

In this manner, any selected portion of the C(AC) may 
be retained while other portions are masked out. The 
ANS instruction operates similarly on a word in memory, 
using the AC as a mask. The 36 bits in positions P and 
1-35 of the accumulator comprise what is frequently called 
the logical accumulator ; the subscript "L" will be used to 
refer to it. Positions S and 1-35 comprise the arithmetic 
accumulator, since those bits are involved in arithmetic. 
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■(245.3 - 246.9)' 



(R) 

PACKING AND UNPACKING 

Example 12.4 Pour positive 9-bit integers are stored 
in successive words starting at W0RDS. Write a routine to 
pack them into a single 36-bit word, PACKED. The C(W0RDS) 
is to be placed in the leftmost 9 bits of PACKED, the 
C(W0RDS+1) is to be placed in the next 9 bits, and so on. 

The AC will be used to accumulate the four numbers- 
they will be packed there from the right. To accomplish 

5 6 S? w111 be P laced in the leftmost portion 

of the MQ and the AC-M,Q double register will then be 
shifted left, to place the number in the AC. If this is 

2S ne cTT°r U r t l meS i J a11 four numbers will be packed in the AC- 
the SLW instruction is used to store the result. A flow- 
chart appears in Pig. 12-1 below; this flowchart is a 
computer flowchart for the 7090. An analysis of the 
packing procedure follows the program. 




(Start 



Clear AC 



1 - i 



a.^ left part MQ 



Shift AC-MQ left 



i + l -» i 




Sto.AC 




Stop 



Fig. 12-1. Flowchart for packing routine. 



Locn. Oper. 



Var. Field 



PXA 


0,0 


AXT 




LDQ 


W0RDS+4,1 


RQL 


27 


LGL 


9 


TIX 


GETWRD, 1, 1 


SLW 


PACKED 


HTR 




BSS 


4 



Clear AC 

One number to MQ 
Shift to left in 
Shift in AC 



MQ 



PACKED 
W0RDS 

The C(AC)l and the C(MQ) throughout the execution of 
this program are listed below; the four loop cycles are 
shown. The action of the TIX instruction is omitted; 
effective addresses are listed. The four octal numbers 
being packed are assumed to be 510, 327, 222, and 106. 



Instruction 

LDQ W0RDS 
RQL 27 
LGL 9 

LDQ W0RDS+1 
RQL 27 
LGL 9 

LDQ W0RDS+2 
RQL 27 
LGL 9 

LDQ W0RDS+3 
RQL 27 
LGL 9 



C(AC) 



■L 



000000000000 
000000000000 

000000000510 

000000000510 
000000000510 
000000510327 

000000510327 
000000510327 
000510327222 

000510327222 
000510327222 
510327222106 



C(MQ) 

000000000510 
510000000000 

000000000000 

000000000327 
327000000000 

000000000000 

000000000222 
222000000000 
000000000000 

000000000106 
106000000000 

000000000000 



At the end of this sequence, the numbers are packed in the 
AC L . 

( r) (247.2 - 247.9) 



Example 12.5 Given a 72-character alphanumeric 
string, stored in a block from STRING to STRING+11 (6 char- 
acters to a word), write a routine to unpack the string, 
placing each character in the rightmost 6 bits of a word 
in the block UNPAKD, in the order of appearance in the 
string. 
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nnnfi? C \ W ? rd ^ th S STR ? NG block must be unpacked, its 
contents being placed in 6 words in UNPAKD . This requires 
a loop of the form in Example 12.4, except that now 
unpacking is required. This can be accomplished by loading 
a word from STRING into the MQ and shifting the AC-MQ pair 
aI; \? s i putting one character at the right of the AC 
After that is stored in UNPAKD and the AC is cleared 
another rotation puts the next character into the AC* 
Surrounding this loop is an outer loop that fetches a new 
word from STRING each cycle. After that word is unpacked, 
the next word from STRING is placed in the MQ. A flowchart 

?? P "m£» }2 th t 5?2 k £ ^ f i ow ?*hart applies to the 7090 
if MQ is substituted for "MR". 

In this program, XR1 and XR2 are used for the outer 
and inner loop indices i and j, respectively. XR4 is used 
? S ?™5? lnter (k) ' lndlcatln S the next available location 
in UNPAKD for an unpacked character. After each character 
is stored, the AC must be cleared for the next one. (The 
indexing discrepancy, described in Section 8.2 of the book 
should be recalled.) J 

Locn. Oper. Var. Field 

K SET 4 

I SET 1 

J SET 2 

AXT 72, K 

AXT 12 I 

L00P1 LDQ STRING+12,1 

AXT 6, J 

L00P2 PXA 0,0 

LGL 6 

SLW UNPAKD+72,K 

mS "U'*'" 1 ' Modify pointer 

TIX L00P2,J,1 

TIX L00P1,I,1 

HTR 



STRING BSS 12 
UNPAKD BSS 72 



Chapter 13 
NUMERICAL PROBLEMS 



(R) (254.8 - 255.8) 

FLOATING-POINT OPERATIONS 

Floating-point numbers were described in Chapter 5. 
In this form, the fraction parts are stored in bits 9"35 
and the characteristics are stored in bits 1-8. Charac- 
teristics are formed by adding 2008 to the powers of 2 in 
floating point form. Examples appear in Chapter 4 of the 
book. If the number is written so that a 1 bit appears in 
position 9 (at the left of the fraction) the number is 
normalized. 

To incorporate floating-point numbers into a FAP pro- 
gram, the DEC pseudo-operation is used with a decimal point 
in each number field. The following instruction leads to 
assembly of the integer 75: 

Oper. Var. Field 
DEC 75 

This appears as +000000000113 (octal) in the program. The 
following instruction leads to assembly of 75 as a normal- 
ized floating-point number: 

DEC 75. 

This appears as 207454000000 (octal) in the program. 
Alternately, the exponential form described in Section 11.2 
of the book may be used: 

DEC . 75E+2 

Regardless of the form given, provided a decimal point is 
present, the number is assembled in normalized form. 

In the following floating-point instructions, the 
operands are treated as floating-point numbers (not 
necessarily normalized). The results are normalized, 
except at noted. 
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FLOATING ADD (FAD Y) (+0300); 6-15 cycles. The C(Y) 
is added algebraically to the C(AC), and the sum is placed 
in the AC and the MQ. The less significant half of the 
sum is placed in the MQ and the more significant half is 
placed in the AC; the characteristic of the MQ is 33$ less 
than the characteristic of the AC. The sign of the sum is 
placed in both registers. The C(Y) is unchanged. 

FLOATING SUBTRACT (FSB Y) (+0302); 6-15 cycles. The 
C(Y) is subtracted algebraically from the C(AC), and the 
difference is placed as the sum is in FLOATING ADD. The 
C(Y) is unchanged 

FLOATING MULTIPLY (FMP Y) (+0260); 2-13 cycles. The 
C(Y) is multiplied algebraically by the C(MQ) and the 
product is placed in the AC and the MQ; the product is 
normalized if the original factors were normalized and not 
necessarily otherwise. The less significant half of the 
product is placed in the MQ and the more significant half 
is placed in the AC; the characteristic of the MQ is set 
as in FLOATING ADD. The sign of the product is placed in 
both registers. The C(Y) is unchanged. 

FLOATING DIVIDE OR HALT (FDH Y) (+0240); 3-13 cycles. 
The C(AC) is divided algebraically by the C(Y), and the 
quotient is placed in the MQ. The remainder is placed in 
the AC. The quotient is normalized if the original 
operands were normalized and not necessarily otherwise. 
If the magnitude of the AC fraction is greater than or 
equal to twice that of the fraction in Y, or if the magni- 
tude of the fraction in Y is zero, division does not occur, 
the divide-check light is turned on, and the computer stops. 

In addition to these floating-point instructions, 
there are others as follows: instructions to add or sub- 
tract the magnitude of a number to or from the C(AC), 
instructions to add, subtract, and multiply without 
placing the result in normalized form, and a divide instruc- 
tion that lets the computer continue in sequence if divi- 
sion cannot occur. 

( M ) (255.8 - 256.4) 

(The following comments apply to 255.8 - 256.4.) 
In floating-point operations, the following corre- 
spondence of registers exists: 

DELTA 63 IBM 7090 
MR AC 
AC MQ 

Thus, the result of the summation is 



C(AC) = +212435710424 C(MQ) = +157222000000 



Chapter 14 
ALGEBRAIC LANGUAGES 



(R) (267.4 - 267.7) 

THE COMPILATION PROCESS 

A PAP sequence that evaluates r is the following: 

Oper. Var. Field 

LDQ A 

MPY C OK if product 

MPY P0UR remains in MQ 

STQ TEMP 

LDQ B 

MPY B 

XCA 

SUB TEMP 

TSX SQR00T,4 Sq. root of C(AC); 

SUB B result in AC 

XCA 

DVP A 

DVP TW0 

STQ R 
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C h si ]p t © x 1 15 
NONNUMERICAL PROBLEMS 



(S) (At 296.5) 

NONNUMERICAL CONCEPTS 

The following logical instructions are available to 
perform the operations described in the book. 

"OR" TO ACCUMULATOR (ORA Y) (-0501); 2 cycles. 
Corresponding bits in the logical AC and location Y are 
compared; where either or both contain a 1 in any posi- 
tion,, the bit in the AC is set to 1; where both are 0, 
the bit in the AC is set to 0. The C(Y) and the S and 
Q positions in the AC are unchanged. 

"OR" TO STORAGE (ORS Y) (-0602); 2 cycles. Corre- 
sponding bits in the logical AC and location Y are 
compared; where either or both contain a 1 in any position 
the bit in location Y is set to 1; where both are 0, the 
bit in location Y is set to 0. The C(AC) is unchanged. 

COMPLEMENT MAGNITUDE (COM) (+0760,6); 2 cycles.* All 
l's are replaced by 0 and all O's are replaced by 1 in 
the C(AC)o p 1.55. The sign of the AC is unchanged. 

LOGICAL COMPARE ACCUMULATOR WITH STORAGE (LAS Y) 
(-0340); 3 cycles. The C(AC)q^ p 305 and the C(Y) are 
compared, both considered as unsigned numbers If the 
C(AC) is greater than the C(Y), the computer executes 
the next instruction in sequence If the C(AC) equals the 
C(Y), the computer skips the next instruction and proceeds 
from there. If the C(AC) is less than the C(Y), the 
computer skips the next two instructions and proceeds from 
there . 



*The operation code of this instruction consists of +0760 
in bits S and 1-11 and, an addition, 00006 in bits 21-35; 
both numbers must be present. This format is true of 
several 7090 instructions; all of these have either 
-0760 or +0760 in the leftmost 12 bits. None of these 
instructions makes any references to memory. 
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The CAL, SLW, ANA, and ANS instructions introduced in 
Chapters 7 and 12 and the four instructions above are 
termed logical instructions. Each refers to the logical 
accumulator (bits P and 1-35), treating those 36 bits and 
the 36 bits of a memory word as unsigned numbers. 

(R) (297.4 - 298.10) 

ANALYSIS OF SYMBOLIC EXPRESSIONS 

Example 15.1 Write a routine that analyzes a symbolic 
expression, placing each symbol and each operator in 
sequence in a list, one to a word. Only expressions 
involving symbols, "+", and "-" need be considered. 

The problem is flowcharted in Pig. 15. 1 here. After 
the string is unpacked and stored in LIST, one character 
at a time is brought into the AC (at the right). The 
character is examined; if it is an operator ( "+" or "-"), 
then a symbol has just ended; that symbol is to be stored 
in NEWLST. At that point, the operator can also be stored 
in NEWLST. If the character examined is a letter, it is 
shifted within the AC so that it can be stored in SYMB0L, 
where the symbol, letter by letter, is reconstructed. With 
each additional letter within the symbol, the amount of 
the shift decreases (6 bits at a time) so that each letter 
can be properly placed. This varying shift is accomplished 
by a tagged ALS instruction; XR4 is used for this purpose 
and is modified by 6 after each shift. The symbol letters 
are combined by use of the 0RS instruction, which "or"'s 
each letter to SYMB0L. When a blank is encountered, the 
process stops, after the last symbol Is stored. 

Each character is examined to see if It is (a) a let- 
ter, (b) an operator, or (c) a blank. The last two 
possibilities are checked by testing for (c) BCD 20 ("-") 
or 40 ("+") and (c) BCD 60 (blank). Any other possibility 
is treated as a letter. In the program below, it is assumed 
that unpacking into LIST has been completed, characters 
stored at the right. A pointer (XR2) is used to indicate 
the next available space in NEWLST. LIST is assumed to be 
100 words long. 
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Start 1 



Unpack complete expression 



1 -* i 
1 - J 
3 0 -> k 



Shift 


k 


bits left: 


store 


letter 



Test one char. 



Blank 



Operator 
(+,-) 



Store symbol 
and operator 



Store 
symbol 




J + 2 - j 
30 -> k 



^Stop^ 



Pig. 15.1 Flowchart of symbolic expression analysis. 
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Locn . 


Oper. 


Var. Field 






AXT 


100, 1 


Set 1 




AXT 


100,2 


Set j 


L00P 


AXT 


0,4 


Set k 


STZ 


SYMB0L 


Clear symbol 


NEXT 


CAL 


LIST+100, 1 


Fetch 1 character 




LAS 


BLANKT 


Test lor clank 




TRA 


*+2 


no 




TRA 


BLANK 


yes 




LAS 


PLUS 


Test for + 




TRA 


*+2 


no 




TRA 


0PER 


yes 




LAS 


MINUS 


Test for - 




TRA 


*+2 


no 




TRA 


0PER 


yes 




ALS 


30,4 


Here if letter 




0RS 


SYMB0L 
*+l,4,6 






TXI 


i £ J— — i _ 

k-o to k 




TXI 


NEXT, 1, -1 


i+1 to i; go back 


0PER 


SLW 


NEWLST+101,2 


Store operator 


CAL 


SYMB0L 






SLW 


NEWLST+100, 2 


Store symbol 




TXI 


*+l, 2, -2 


j-2 to j 




TXI 


L00P, 1,-1 
SYMB0L 


i+1 to ij go back 


BLANK 


CAL 






SLW 


NEWLST+100, 2 


Store symbol 




HTR 






BLANKT 


BCI 


1, 00000 




PLUS 


BCI 


1, 00000+ 




MINUS 


BCI 


1,00000- 




SYMB0L 








LIST 


BSS 


100 




NEWLST 


BSS 


100 





At the end of this program, the symbols in NEWLST are 
left-adjusted, that is, they are stored at the extreme 
left of the words in NEWLST. If it is desired that they be 
stored right-adjusted, then the complete symbol must be 
shifted right before it is stored in NEWLST. Because XR4 
begins at 0 and is decreased by 6 for each letter in a 
symbol", the amount of the final shift needed for right- 
adjusting is 36 - C(XR4) at the time of storing. For 
example, if a symbol has 4 characters, the C(XR4) will be 
24 at the time the symbol is to be stored j a right shift 
of 12 bit positions will right-adjust the symbol. There- 
fore, the insertion of the following instruction just after 
the two CAL instructions that place the C(SYMB0L) into the 
AC accomplishes the right-adjusting: 



ARS 36,4 



(M) 



(299-3 - 299.8) 
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(The following comments apply to 299.3 - 299.8.) 

PACKING BINARY INFORMATION 

To effect the packing, each word is placed in the MQ 
and the following two instructions are executed as a pair 
six times (after the AC is cleared): 

RQL 5 
LGL 1 

If this is done with the 36-bit word given, the right part 
of the AC will look as follows (in binary): 

...0000000000110100 

(R) (299.8 - 300.2) 

Example 15. 2 The program below takes 6 words of BCD 
O's and l«s (in BITS to BITS+5) and packs them into one 
word, BITPAK. 



Locn . Oper. 



Var. Field 



AXT 

NEWWRD LDQ 
AXT 

NWCHAR RQL 
LGL 
TIX 
TIX 
• SLW 
HTR 



6,2 

BITS+6,2 

6,1 

5 

1 

NWCHAR, 1,1 
NEWWRD, 2,1 
BITPAK 



Next word to MQ 
Next character to AC 



(r)_ : (301.2 - 301.7) — 

CODING ALPHANUMERIC INFORMATION 

Example 15.3 The following program codes the C (TERM) 
and puts the code in C0DTRM. If the C(TERM) is not found 
in the list, control will pass to ERR0R. 



Locn . Oper. Var. Field 



AXT 
CAL 

AGAIN LAS 
TRA 
TRA 
TIX 
TRA 

F0UND CAL 
SLW 

* • • 

TABLE BCI 
BC I 
BCI 
BCI 

■ • • 

C0DTBL 0CT 
0CT 
0CT 
0CT 



160,1 
TERM 

TABLE+150,1 
*+2 
F0UND 
AGAIN, 1, 1 
ERR0R 

C0DTBL+l6O,l 
C0DTRM 



Table has 160 entries 

Compare with i th entry 

Found term 

Tra if not in table 
Fetch ith code 



1,TRIANG 
1, SQUARE 
1,RECTAN 
1, PARALL 



20 
21 
23 
30 



Here, the code for "TRIANGLE" is 20, the code for "SQUARE" 
is 21, etc. 



(S) 



(At 302.1) 



NONNUMERICAL CONCEPTS 

The following logical instruction is useful in 
nonnumerical problems 

EXCLUSIVE "OR" TO ACCUMULATOR (ERA Y) (+0322); 
3 cycles. Each bit in Y is matched with the corresponding 
bit in the logical accumulator. Where corresponding bits 
match, a 0 replaces the bit in the accumulator; where 
corresponding bits do not match, a 1 replaces the bit in the 
accumulator. The C(Y) is unchanged. 

For example, if 

the C(AC) T = 011100001010000111111100001100001000 

the (Y) = 000000011111000011101010110001111000 

then execution of the ERA instruction places this result in 
the AC : 

011100010101000100010110111101110000 

This instruction may thus be used to identify the matching 
bits in two words. 



81 



The following instruction tests the status of the 
P-bit. 

P-BIT TEST (PBT) (-0760,l);.2 cycles. If the C(AC) P 
is 1, the computer skips the next instruction and proceeds 
from there. If the C(AC)p is 0, the computer continues 
in sequence. 

The 7090 computer has a special 36-bit register, the 
sense indicator (Si) register . The following instructions 
treat the register as switches which may be logically 
treated and tested individually or in groups. 

LOAD INDICATORS (LDI Y) (+044l); 2 cycles. The C(Y) 
replaces the C(SI). The C(Y) is unchanged. 

STORE INDICATORS (STI Y) (+0604); 2 cycles. The C(SI) 
replaces the C(Y). The C(SI) is unchanged. 

PLACE ACCUMULATOR IN INDICATORS (PAl) (+0044); 1 cycle. 
The C(AC) L replaces the C(Sl). The C(AC) is unchanged. 

ON TEST FOR INDICATORS ( ONT Y) (+0446),- 4 cycles. For 
each bit in the C(Y) that is 1, the corresponding bit in 
the SI is examined. If all the examined positions in the 
SI contain a 1, the computer skips the next instruction 
and proceeds from there. If any of the examined positions 
does not contain 1, the computer takes the next instruction. 
The C(Y) and the C(SI) are unchanged. 

Another way of stating the operation of ONT is to say 
that, considering the C(Y) and C(SI) as ordered 36-bit 
sets, the computer skips the next instruction if and only 
if the C(SI) covers the C(Y), i.e., if the SI has l's 
wherever Y has l's... Thus, if 

the C(SI) = 000001110100000001111000101000000000 



then a 


skip 


occurs 


in cases (a) and (b), but not (c): 


case 


(a): 


C(Y) 


= 000001110000000000000000101000000000 


case 


0>): 


C(Y) 


= 000000010000000001111000000000000000 


case 


(c): 


C(Y) 


= 110001110000000001000000001000000000 



These and the other SI instructions have many applica- 
tions, of which the following is but a simple example: 

Generalize the PBT instruction to permit a test for 1 
in any bit of the logical accumulator; let BITWRD contain 
a 1 in the desired test position and 0 elsewhere. The 
desired sequence : 



Oper . 



Var. Field 



PA I 
0NT 



BITWRD 



C(AC) to SI 
Test word 
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By using other bit patterns in BITWRD , any set of 

1's can be tested for. 

Another SI instruction of interest is the following. 

INVERT INDICATORS FROM ACCUMULATOR (HA) (+004l); 
1 cycle. Each bit of the logical accumulator is matched 
with the corresponding bit of the SI. Where a bit in the 
AC is 1, the contents of that position in the SI is 
unchanged. The C(AC) is unchanged. 

The effect of the IIA instruction is to place the 
exclusive or of the C(AC) and the C(SI) into the SI, Just 
as the ERA instruction places the exclusive or of the C(Y) 
and C(AC) into the AC. 

(R) (307.7 - 3H.7) 

NIM 

Example 15.4 Write a program to make a Nim move; if 
the position presented is even, make a "random" move by 
removing one coin from the first nonzero group; if the 
position presented is odd, make a move to create an even 
position. 

A large range of positions will be accepted; up to 
35 bits may be present in each count (i.e., 235 - 1 is 
the maximum count), and up to 1000 groups of coins may be 
present. While these limits are extraordinarily high, 
coding this case is no more difficult than coding a 5-group 
game with count limits of 20. 

The counts are present in the block starting at 
C0UNTS; the number of groups (n) is located in GRPNUM. The 
counts are stored internally in binary form (since the 7090 
is a binary computer), which makes a good deal of the 
coding simple. C0LUMN is used to indicate the columns 
requiring change; each bit position corresponds to one 
column, and 1 indicates a change. LEPC0L is used to indi- 
cate the leftmost column requiring change. 

The program is coded in several stages. In the first 
stage, steps 1 and 2 are coded. To determine which columns 
have an odd number of l's, the ERA instruction is very 
useful. 

Consider one column, say position 35. in each word 
containing a count. Imagine that the first word is com- 
bined with the cleared AC by the ERA instruction. If the 
word contains a 1 in bit 35, that position in the AC becomes 
1, otherwise it remains 0. In fact, as a series of words 
is successively combined with the AC (which contains the 
result of all previous combinations), that bit will remain 
0 until the first 1 (in bit 35) occurs in a word. Then, 
as more words are combined with the AC, that bit remains 1 
until another 1 occurs in a word. In summary, the number 
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in bit 35 in the AC indicates, at all times, whether an 
odd number (l) or an even number (0) of l's has occurred 
in that position. The same reasoning applies to all bit 
positions. 



Locn . Oper. 



Var. Field 



GET 



CLA 
ADD 
STA 
LXA 
PXA 
ERA 
TIX 
SLW 



XC0UNT 
GRPNUM 
GET 

GRPNUM, 1 

0,0 
*•* J 

GET, 1,1 
C0LUMN 



Set address 

(Other addresses also 

set here) 
Clear AC 
(C0UNTS+n) 



XC0UNT 



C0UNTS 



At the end of the first stage, the columns requiring 
change are indicated by l's in C0LUMN. The second stage 
consists of the coding for step 3 and contains two parts — 
3a: determination of the leftmost column to be changed, 
and 3b: determination of the first row with a 1 in that 
column. To code 3a, the C(C0LUMN) are placed in the AC 
and shifted left one bit position at a time until the 
P-bit becomes 1. XR1 is used for loop control and when the 
P-bit is 1, XR1 "points" to the leftmost column. For 
example, if the leftmost 1 was in bit 20, that bit moves 
to position P after 20 left shifts and the C(XR1) then 
decreases to 15 from its original 35. The proper word from 
a table of single bits, BITS, can then be selected by XR1 
and stored in LEFC0L. Part 3a is coded below- 3b is coded 
later. 

Provision is made here for the even-position possibil- 
ity (Fig. 15.4 in the book); if the loop is cycled 35 times 
and position P is never 1, then no l's are present in 
C0LUMN and no columns require change. 
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Locn . Qper. 

AXT 
CAL 

SHIFT ALS 
PBT 
TRA 
TRA 
TIX 
TRA 

LEPTC CAL 
SLW 

• • « 

BITS 0CT 
0CT 
0CT 



Var. Field 

35,1 

C0LUMN 

1 

*+2 
LEFTC 
SHIFT, 1,1 
EVEN 

BITS+35,1 
LEFC0L 

200000000000 
100000000000 
040000000000 



Shift left 1 bit position 
Test P-bit 
Go on if 0 
Tra when 1 

Tra if no l's 
Fetch proper bit 



1 in bit 1 
1 in bit 2 
1 in bit 3 



To code 3b, each row count is checked to see if it 
has a 1 in the bit identified in LEFC0L. This is done by 
loading each count into the AC, masking with the C(LEFC0L) 
and transfering out on a nonzero AC. If the AC is nonzero, 
a 1 must be present in the count just tested in the proper 
position. Now, XR1 is used to point to the count to be 
modified. 



Locn . Qper. Var. Field 

LXA GRPNUM, 1 

GETBIT CAL **,1 (Must be set as in first 

ANA LEFC0L stage) (COUNTS+n) 

TNZ F0UND Tra when count with bit 

TIX GETBIT, 1,1 found 

F0UND ... ... XR1 still points to count 

to be modified. 



In the third stage of the program, step 4 is coded. 
Here, the number of coins to be removed from the selected 
row must be determined. Actually, what is required is 
the new count; the actual number of coins removed need not 
be computed. The sense indicators are useful here; the 
IIA instruction performs precisely the required operation: 
inverting a selected set of bits within a word. 



$5 



Locn. Oper. Var. Field 

F0UND LDI **,1 (Must be set . . . (C0UNTS+n ) ) 

CAL C0LUMN Cols to be changed to AC 
IIA 

STI **,1 (C0UMTS+n) 

TRA PRINT 



PRINT Is a routine that prints the counts after the progrank 
has calculated the move. If the computer is to play 
against a man, it must inform him of its move. Somehow, 
then, the man must inform the computer of his move. This 
can be done by supplying new data cards each time or by 
entering the move into the console keys. In any event, 
the modified count is placed in the C0UNTS block and con- 
trol goes to the start of the program. 

One other routine is needed; in the event that the 
program finds an even position, it is to make a "random" 
move: remove one coin from the first nonzero group. 

Locn. Oper. Var. Field 



EVEN LXA GRPNUM, 1 

CLA **,1 

TNZ EVEN1 

TIX EVEN+1,1,1 

TRA ALLD0N 

EVEN1 SUB 0NE 

ST0 **,1 

TRA PRINT 



(C0UNTS+n) 

Tra if all are zero 
(C0UNTS+n) 



0NE 



DEC 



ALLD0N is a routine that prints an appropriate comment. 
(R) (316.1 - 317.3) : 

OTHER TYPES OF LISTS 

In order to place three subfields into a word, the 
address, tag, and decrement fields of an instruction can 
be used, provided the desired subfields have 15, 3, and 
15 bits, respectively. If the operation field is left 
blank, zeros are assembled into the prefix, i.e., bits S, 
1, and 2; alternately the pseudo-operation PZE (p_lus zero) 
may be used for the same purpose. (There are other, 
similar pseudo-operations that cause the 7 other possible 
prefixes to be assembled; these are P0N (plus one), 
PTW (plus two), PTH (plus three), M0N (minus one), etc.) 
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Thus the following correspondences exist within FAP: 



Machine word 
0 02215 2 11002 
0 02215 0 11002 
-2 11002 1 00277 



Symbolic instruction 
PZE LIST,2,W0RD 

LIST, ,W0RD 
MTW W0RD, 1, NAME 



Example 15.5 Refer to the book for a description of 
the list structure used. Tag fields are used here to hold 
codes . 



Location 




Contents 


Location 


Oper. 


Var. Field 


01000 


0 


01004 


3 


01001 


LO 


PZE 


L1,3,L4 


01001 


0 


01007 


1 


01002 


LI 


PZE 


L2,1,L7 


01002 


0 


01003 


2 


01010 


L2 


PZE 


L8,2,L3 


01003 


0 


01012 


4 


01011 


L3 


PZE 


L9,4,L10 


01004 


0 


01006 


1 


01005 


L4 


PZE 


L5,1,L6 


01005 


0 


01014 


3 


01013 


L5 


PZE 


L11,3,L12 


01006 


0 


01016 


4 


01015 


L6 


PZE 


L13,4,Ll4 


01007 


0 


00000 


7 


00115 


L7 


PZE 


ABC, 7 


01010 


0 


00000 


7 


00400 


L8 


PZE 


NAME, 7 


01011 


0 


00000 


7 


42000 


L9 


PZE 


LIST, 7 


01012 


0 


00000 


7 


00221 


L10 


PZE 


W0RD,7 


01013 


0 


00000 


7 


03300 


Lll 


PZE 


XI, 7 


01014 


0 


00000 


7 


03301 


LI 2 


PZE 


X2,7 


01015 


0 


00000 


7 


03305 


L13 


PZE 


X3.7 


01016 


0 


00000 


7 


03310 


L14 


PZE 


X4,7 


(R) 








— (320.1 


- 320.4) — 







INTEGER CONVERSION 



Example 15.6 Let a block of integers n±(l <^ n± <^ N Q 
for i = 1,2, ...,k) be located starting at BL0CK. It is 
desired to classify them by assigning a class number c± to 
each. To perform this classification, the integer ni (the 
argument) is placed in XR2 and the number c± f located in 
the (mj_-l) t h word from the end of a block at TABLE, is 
fetched. This number is stored in the ni th position of a 
parallel table, CLASS. N Q is assumed to be 100. 
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Locn. Ope p. 



Var. Field 



ARG 



PUT 



CLA 
ADD 
STA 
CLA 
ADD 
STA 
LXA 
CLA 
PAX 
CLA 
ST0 
TIX 



0,2 

TABLE+100,2 
ARG, 1, 1 



XBL0CK 
K 

ARG 

XCLASS 

K 

PUT 
K,l 



(BL0CK+k) 

Put argument in XR2 
(CLASS+k) 



Set addresses 



XBLOCK 
XCLASS 
K 



BL0CK 
CLASS 



In this problem,, the argument domain is 100 (N n ) in 
size and a table (TABLE) of that size contains the numbers 
c ± . These numbers cover the image range. A limitation to 
this method is the maximum size of N Q permitted, since a 
table of that size is required. 

(r) (320.6 - 321.5) 

PATTERN DETECTION 

[ Example 15.7 Count all appearances of bits "1011" 
and 0100 in the block of 50 words starting at PATTRN, 
and place these counts in CNTR1 and CNTR2, respectively 
Consider each word to consist of nine 4-bit bites. 

The arguments are numbers from 0 to 15 inclusive* 
these are the decimal numbers represented by the 16 dif- 
ferent bites. A transfer of control is made to one 
address in a l6-word table, depending on the argument. In 
all but two of these locations, a transfer is made immed- 
iately back to the main subroutine. In the other two, 
transfers are made to counting routines, after the execu- 
tion of which control is returned to the main routine. 

Locn. Oper. Var. Field 

AXT 50,1 
L00P1 LDQ PATTRN+50,1 Put a word in MQ 



0UT 



L00P2 



AXT 
PXA 
LGL 
PAX 
TRA 
TIX 
TIX 



9,2 
0,0 

4 

0,4 

TABLE+16,4 

L00P2,2,1 

L00P1,1,1 



Clear AC 

Put 1 bite in AC 

(TABLE is defined below) 
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14 of the 
the following: 

TRA 



16 instructions in the block at TABLE are 



0UT 



These correspond to the 14 different bites that are not 
processed. The other two instructions are 



TRA 
TRA 



C0UNT1 
C0UNT2 



which occupy the sixth and eleventh words from the end of 
the block, corresponding to the two patterns to be 
processed. The routine at C0UNT1 is 



C0UNT1 CLA CNTR1 

ADD 0NE 

ST0 CNTR1 

TRA 0UT 



Add 1 to CNTR1 



The routine at C0UNT2 is similar. 
( S ) (At 322.0)' 



PLACE COMPLEMENT OF ADDRESS IN INDEX (PAC) (+0737); 



The 2's complement of the C(AC)2i- 
of the specified index register. 



5 replaces the contents 
ie C(AC) is unchanged. 



(R) (322.1 - 322.7) 

Example 15.8 Refer to the book for a description and 
analysis of this problem. In this program, k, the number 
of integers, is taken to be 500. The maximum value of 
the numbers is taken to be 10000. The complement of each 
integer is placed in XR2 so that the indexing on the ST0 
Instruction places ni in LIST+n. 



'1' 



Locn . Oper. 



L00P1 



AXT 
CLA 
PAC 
ST0 
TIX 



Var. Field 
500,1 

BL0CK+5OO,1 
0,2 

LIST, 2 
L00P1,1,1 



Fetch an 
Place in 
Store in 



integer 

XR2 , c omp lemented 
LIST 



This loop constitutes the integer-ordering process. Note, 
for example, that the number 45 is stored in LIST+45, 
873 is stored in LIST+873, etc. The zero-removal routine 
is the following: 
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AXT 
AXT 



10000,1 
10000,2 
LIST+10000, 1 
*+3 

LIST+10000, 2 

*+l,2,-l 

L00P2,1,1 



L00P2 CLA 



Fetch a number 



TZE 
ST0 
TXI 
TIX 



Move if nonzero 



The two XR's act as pointers here; XR1 also serves for 
loop control. XR1 points to the number being tested; 
XR2 points to the next available location for its final 
position. The presence of a zero (indicating a missing 
value) leaves XR2 unchanged, so that each nonzero number 
is stored in a successive position in the list. A count 
of the number of entries in LIST is given at the end by 
10000 - C(XR2). 



Chapter 16 
DATA PROCESSING 



(S) 



(At 331.10) 



CONVERSION 

The 7090 computer has three special instructions 
useful in the conversion of information in one form to an- 
other form. These convert instructions treat each 36-bit 
word as a set of six 6-bit bites, operating upon each bite 
in sequence. One of the instructions follows. 

CONVERT BY ADDITION PROM THE MQ (CAQ Y) (-0114); 
2-8 cycles. The MQ is considered to consist of six 6-bit 
quantities; these may be designated as follows: LI: 
Bits S and 1-5; L2: bits 6-11; ...; L6: bits 30-35. An 
effective address Y + LI is formed and the C(Y+Ll) is added 
to the ACa p 1-35 (the sign is unchanged). Then the C(MQ) 
is rotated six positions to the left. As a next step, a 
new effective address Y' + L2 is formed, where 
Y' = C(Y+L1) 21-35, and the C(Y'+L2) is added to the AC. 
Then the MQ is rotated six more positions to the left. 
This process occurs n times, n being the C (INSTR) 10-17, 
where INSTR contains the CAQ instruction. 

Examples of the use of the CAQ and the other two 7090 
convert instructions appear in the IBM manuals, under 
"Programming Examples. Other uses are given below in 
Examples 16.2 and 16.3A. 

Within PAP, the count is designated as the third sub- 
field in the variable field. 



Example 16.1 Write a routine to convert alphanumeric 
octal information to binary form. 

This conversion process is a simple one and does not 
benefit particularly from the use of CAQ. Refer to the 
book for an analysis. Here, the number to be converted is 
placed initially in the MQ. The converted word remains in 
the AC. 



(R) 



(332.2 - 333.10) 
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Locn . Oper. 



Var. Field 



L00P 



AXT 
PXA 
RQL 
LGL 
TIX 



6,1 
0,0 
3 
3 

*-2,l,l 



Zero AC 



Example 16.2 Write a routine to convert alphanumeric 
decimal information to binary form. A number in DIGITS is 
to be converted; the result is to be stored in SUM. 

The CAQ instruction can be used to great advantage, 
since it permits a sum of numbers to be accumulated rapidly 
as the result of a series of table references. Consider 
a BCD word containing an integer: 002258. The number can 
be calculated by summing 8x100, 5x101, 2x102, and 2x103. 
For this purpose, six tables of 10 words each are required. 
The address fields of the words in these tables each con- 
tain the head of the following table, so that reference is 
made in succession to the six tables . The decrements of 
the first table contain the 10 digits from 0 to 9. The 
decrements of the second table contain the numbers 0, 10, 
20, 90. The decrements of the sixth table contain 

the numbers 0, 100000, 200000, 900000. The addresses 

of the sixth-table words are irrelevant. (Special care is 
required that the sum of the six addresses from the table 
does not overflow into the left part of the AC, where the 
sum is accumulated. This overflow can never extend past 
the decrement for a count of 6. ) 

Locn. Oper. Var. Field 



LDQ 
PXA 
CAQ 
ARS 
SLW 



18 
SUM 



DIGITS 
0,0 

CTABLE, ,6 



Place sum in address field 



Load number in MQ 
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The table begins as follows, where 00500 is the 
address of CTABIE : 



Location Contents 



00500 


0 


00000 


0 


00512 


CTABLE PZE 


ctable+io, , 0 


00501 


0 


00001 


0 


00512 


PZE 


CTABLE+10, , 1 


00502 


0 


00002 


0 


00512 


PZE 


CTABLE+10, , 2 


00503 


0 


00003 


0 


00512 


PZE 


CTABLE+10, , 3 


00504 


0 


00004 


0 


0051^ 


PZxL 


GiABJJi+lU, , 4 


00505 


0 


00005 


0 


00512 


PZE 


CTABLE+10, ,5 


00506 


0 


00006 


0 


00512 


PZE 


CTABLE+10, ,6 


00507 


0 


00007 


0 


00512 


PZE 


CTABLE+10, ,7 


00510 


0 


00010 


0 


00512 


PZE 


CTABLE+10, , 8 


00511 


0 


00011 


0 


00512 


PZE 


CTABLE+10, ,9 


00512 


0 


00000 


0 


00524 


PZE 


CTABLE+20, ,0 


00513 


0 


00012 


0 


00524 


PZE 


CTABLE+20, , 10 


00514 


0 


00024 


0 


00524 


PZE 


CTABLE+20, ,20 



Example 16.3 Write a routine to convert binary 
numbers to alphanumeric decimal form. 

This is the reverse of the process in Example 16.2, 
but it is not possible to program the problem in the 
opposite manner. Instead, a simple approach is obtained 
by using the repeated division process described in 
Section 4.2. Arithmetic must be done in binary; in a 
binary machine this is automatic. The remainders are saved 
in binary, which happens to be their BCD form, since all 
remainders are digits. The number to be converted is 
located in NUMBER. A 35-bit number may contain as many as 
11 decimal digits, when converted. 

Locn . Qper. Var. Field 

AXT 11 1 

LDQ, NUMBER 

M0RE PXA 0,0 

DVP TEN 

ST0 LIST+11,1 Store remainder 

TIX M0RE,1,1 

After execution of this routine, the 11 digits are stored 
in sequence in the block at LIST, with the low-order digit 
in LIST. A packing routine can place them in two words; 
they will then be in BCD form. 
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(S) (At 334.2)- 



CONVERSION 

The following instruction is useful in the conversion 
of 6-bit bites to other 6-bit bites. 

CONVERT BY REPLACEMENT FROM THE MQ (CRQ Y) (-0154); 
2-8 cycles. This instruction is similar to CAQ in its 
execution, except that the leftmost 6 bits (S and 1-5) of 
the referenced words replace the 6-bit quantities in the 
MQ, LI, L2, L6. As before, the MQ is rotated six 

positions left after each such substitution. The count n 
applies as in CAQ. 

Example 16.3A* Write a program that scans the 
100 words starting at LIST and makes the following BCD sub- 
stitutions : 

replace all even digits by X; 
replace all vowels by Y; 
leave other codes unchanged. 

The program is the following: 

Locn . Oper. Var. Field 

AXT 100 2 

L00PS LDQ LIST+100,2 Word to MQ 

CRQ TABLE,, 6 Convert word 

STQ LIST+100,2 Store word 

TIX L00PS,2,1 
HTR 

In addition, a table is required which contains the new 
BCD codes in bits 1-6 and the address of the table (i.e., 
TABLE) in all address fields. 

To create such a table, the FAP pseudo-operation VFD 
is useful. As an example of its use, consider 

Locn . Oper. Var. Field 

PLACE VFD H6/X, 15A 15/NAME 



*This example has no counterpart in the book. 
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Here, the items in the variable field mean the following: 
generate a 36-bit word at PLACE with its first 6 bits the 
Hollerith X, its next 1^ bits ignored (zeros), and its 
next 1^5 bits the equivalence of the symbol NAME . * The 
table thus begins as follows: 

TABLE WD H6/X, 15/, 15/TABLE 0 

WD H6/1, 15/ , 15/TABLE 1 

WD H6/% 15/, 15/TABLE 2 

WD H6/3, 15/, 15/TABLE 3 

WD H6/X, 15/, 15/TABLE 4 

WD H6/5, 15/, 15/TABLE 5 

WD H6/X, 15A 15/TABLE 6 

WD H6/7, 15/, 15/TABLE 7 

WD H6/X, 15/, 15/TABLE 8 

WD H6/9, 15/, 15/TABLE 9 

BSS 1 nil 

WD H6/=, 15/, 15/TABLE 

WD H6/", 15/, 15/TABLE " 

BSS 3 3 nils 

WD H6/+, 15/, 15/TABLE + 

WD H6/Y, 15/, 15/TABLE A 

WD H6/B, 15/, 15/TABLE B 

WD H6/C, 15/, 15/TABLE C 



( R ) (338.7 . 340.2) 

SORTING (ORDERING) 

TRANSFER ON LOW MQ (TLQ Y) (+0040); 2 cycles. If the 
C(MQ) is algebraically less than the C(AC), the computer 
takes its next instruction from location Y. If the C(MQ) 
is algebraically greater than or equal to the C(AC), the 
computer continues in sequence. 

Example 16.4 Write a routine to perform an inter- 
change sort of 100 numbers, located starting at NUMBRS. 

Let l± be the i th location in the list. During the 
first pass, the first comparison is made between the C(-ti) 
and the C^)* and the last comparison is made between 
the 0(^90) and the C(^ioo)- The i th comparison is made 
between the C(l±) and the C(l± +1 ) ; i runs from 1 to 99. 
In the program, the index, as given by the C(XRl), runs 
initially from 99 to 1, then on succeeding passes runs 
from 99 to limits that increase by 1 each pass. This is 



*Refer to a FAP manual for more details on WD. 
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accomplished by modifying the test instruction (TXH) after 
each pass through the numbers. The whole process term- 
inates when XR2 is reduced to 1, after the 99th pass. The 
AC and MQ, are used for comparison and exchange. The 
following routine places the smallest number first. 



Locn . 


Oper. 


Var. Field 






CLA 


ZERO 


Initialize test 




STD 


TEST 






AXT 


99,2 




NEWPAS 


AXT 


99,1 


Start new pass 


NEWNUM 


LDQ 


NUMBRS+99, 1 


l± to MQ 




P T.A 
U i-irl 


TJTTIVrRRC'4.1 on 1 
J.N Ul'LDrlOT J.UU , ± 


^i+1 to AO 




TLQ 


N0EX 


^i+1 greater; no exch 




STQ 


NUMBRS +100,1 






ST0 


NUMBRS+99,1 






TXI 


*+l,l,-l 




TEST 


TXH 


NEWNUM, 1,** 


Test for last number 




CAL 


TEST 


Modify test; add 1 to 




ADD 


DECR1 


decrement 




STD 


TEST 






TIX 


NEWPAS, 2,1 




DECR1 


0CT 


1000000 


1 in decrement 


ZER0 






NUMBRS 


BSS 


100 





(M) __(340.2 - 340.5) 

The book discusses, in 340.2 - 340.5, the efficiency 
of this sorting procedure. The following instruction can 
be inserted in the program to test for an interchange in 
a given pass: 

STZ INDIC 

( R ) (341.1 - 341.10) 

MERGING 

Example 16. 5 Write a routine to merge the lists in 
the blocks at LIST1 and LIST2 of sizes m and n, respec- 
tively, forming a single ordered list, NEWLST. The 
original lists have no more than 1000 numbers each. 

The flowchart in Pig. 16.3 in the book shows the 
process. The entries in LIST1 are a±; the entries in 
LIST2 are by, the locations in NEWLST are l^. XR1 and 
XR2 act as pointers to the two original lists; XR4 acts 
as a pointer to NEWLST. 
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In order to insure that trouble does not occur when 
either list is exhausted, an extra number is assumed 
present at the end of each list. This number exceeds any 
number in the list and is not counted (in the counts m 
and n). When m + n numbers are merged and the process 
stops, these numbers are ignored. At the end of the 
merging process, a dummy number (in LARGE ) must be attached 
to the end of NEWLST. 



Locn. Oper. 



Var. Field 



NEXT 



SMALL1 



SMALL2 



M0D 
SET 



CLA 
SUB 
SUB 
ALS 
STD 
AXT 
AXT 
AXT 
CLA 
LDQ, 
TLQ, 
ST0 
TXI 
STQ 
TXI 
TXI 
TXH 
CLA 
ST0 
HTR 



X2001 

M 

N 

18 

SET 

2001,4 
1001,1 
1001,2 

LIST1+1001, 1 
LIST2+1001,2 
SMALL2 



Form 2001-m-n; 

set into test instr. 



Compare a^ and bj 



NEWLST+2001,4 Store a, (smaller) 
M0D,1,-1 

Store bj (smaller) 



NEWLST+2001,4 
M0D,2, -1 
*+l,4,-l 
NEXT, 4,** 
LARGE 

NEWLST+2001,4 



(2001-m-n) 
Store large number 
(dummy) at end 



M 
N 

LARGE 
X2001 
LIST1 
LIST 2 



0CT 
DEC 
BSS 
BSS 



NEWLST BSS 



377777777777 

2001 

1001 

1001 

2001 



Chapter 17 
MACRO-INSTRUCTIONS 



(S) (At 348.10) 

MACRO-INSTRUCTION PSEUDO-OPERATIONS 

in BE-pip PS Bp?r?K ra i l0n3 r d S SCrlbed here are a11 available 
in BiL-FAP, Bell Telephone Laboratories' version of PAP 

They are not all available in other 7090 assemblers while 
sys?e r ms? ^ ^ descrlbed ' *** presen^ in Sther 

(R) " (349.0 - 349.9) 

Example 17.1 Define and use a macro-instruction thai- 
sums three numbers and stores the result Bbj:ucT;:Lon ™at 
The macro-definition: 

Locn. Oper. Var. Field 

SUM3 MACRO A,B,C,S 
CLA A 
ADD B 
ADD C 
ST0 S 
END 

This macro-instruction sums the C(A), C(B), and C(C) and 
stores the sum in S. K J> 1 ; ' and 

Consider this macro-call: 

SUM3 WORD, DIGIT , NUMBER, RESULT 

This call expands into the following sequence: 

CLA W0RD 

ADD DIGIT 

ADD NUMBER 

ST0 RESULT 
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98 

There is no restriction on the nature of the alpha- 
numeric strings that may be substituted for dummy argu- 
ments. The following indicates some possibilities. 

Call the SUM3 macro-instruction using more complex 

call arguments. 

(1) The following call 

Oper. Var. Field 
SUM3 W0RD+1, (DIGIT+1 ,3)j NUMBER, RESULT 
expands into the following: 

CLA W0RD+1 

ADD DIGIT+1, 3 
ADD NUMBER 
ST0 RESULT 

(2) The following call 

SUM3 W0RD+NAME-23, > NUMBER+3 , / 0/ 44000 
expands into the following: 



CLA 
ADD 
ADD 
ST0 



W0RD+NAME-23 

NUMBER+3 
/0/44OOO 



(R) 

Location 

00100 
00101 
00102 
00103 
00107 
00110 



(350.1 - 350.3) — 

Contents Location 



+0774 00 1 00012 
+0500 00 0 00223 
+0601 00 0 00224 

+0120 00 0 00117 
+1 00001 2 00111 



L00P 



Oper. Var. Field 

AXT 10, 1 

CLA X 

ST0 Y 

SUM3 NAME,W,X,Z 

TPL NEXT 

TXI *+l,2,l 



■(At 350.4) 



(s) 

The FAP pseudo-operation used to cause printing of 
macro-instruction expansions is PMC (p_rint macro- 
instruction). Repeated use of PMC "turns on and then 
"turns off" this printing. 
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( R ) (351.4 - 351.10)— 

PSEUDO-OPERATIONS 

Example 17.2 Compute the value of p : 

p = (a+b+c)(d+e+f+g+h)/(a+d+h) 
We can use the SUM3 macro-instruction: 
Oper. Var. Field 

SUM3 A,B,C,TEMP 

SUM3 D,E,F, TEMP+1 

SUM3 TEMP+1, G,H, TEMP+1 

SUM3 A,D,H,TEMP+2 

LDQ TEMP 

MPY TEMP+1 

DVP TEMP +2 

STQ P 

<„ a +. In ^ hls Program, to sum five numbers, the SUM3 macro- 

.'Sind^S SS^iSS^ oalls should "SSr 

CLA D 
ADD E 
ADD p 
ST0 TEMP+1 
CLA TEMP+1 
ADD G 
ADD H 
STJ2) TEMP+1 

(r) (352.4 - 352.9) 

CONDITIONAL ASSEMBLY 

is used e to°pf?!^ g P s ^o-operation in the PAP assembler 
is used to effect conditional assembly: 

Qper. Var. Field 



IFF P,A,B 
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ThP P subfield represents a symbolic expression, while the 
A and B subfields represent alphanumeric strings. The 
instruction that is next after the IFF pseudo-operation is 
assembled if and only if the quantities p and q have the 
same values, where 

j-0 if the equivalence of P is zero 
P ll if the equivalence of P is nonzero 

r 0 if A and B are nonidentical strings 
q ll if A and B are identical strings 

If at least one symbol in P is undefined prior to the 
occurrence of the IFF pseudo-operation, then p - 

As examples, the following instructions will cause 
the suppression of the next instructions: 

IFF 1,R,S 

IFF 0, XXX, XXX 

IFF L0C+2O,AA+1,1+AA 

provided the equivalence of L0C is not -20. Note that 
AA+l and 1+AA are not identical strings (although they 
have Sne same equivalence). The following instructions 
will cause the assembly of the next instructions: 

IFF 1,SS,SS 
IFF 0,X,Y 

IFF NAME -NAME , A+B+C , A+C+B 

Arguments to be substituted in the three subfields 
of IFF may be substituted within a macro-definition as 
may any argument. 



(R) (353.0 - 354.7) 

This pseudo-operation may be used to suppress the 
instructions discussed in Example 17.2 For example, if 
we write 

IFF 0,AC,A 

then assembly if the next instruction will occur if and 
onlv if A is not AC. , 

Example 17.3 Revise the SUM3 ^o-instruction , ?„„ 
supp ress AC instr uctions as indicated. Recode the evalua- 
tion of p, given in Example 17.2. 



The macro-definition is 
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Locn. 
SUM3 



Oper. 

MACR0 

IFF 

CLA 

ADD 

ADD 

IFF 

ST0 

END 



Var. Field 

A,B,C,S 

0,AC,A 

A 

B 

C 

0,AC,S 
S 



t-T^«<-oS n S ld ?? the followl ng call and how it will be 
treated by the assembler. 

SUM3 D,E,F,AC 

a C re S d???erent f rI St ^ l ±n °% the IFF A and B ^bfields 
whiip " _ n oi ( L 8nd B = AC ^on substitution) ^ q = n 
while p - 0 also. Therefore, assembly of the next in.t-r.nn 
tion occurs. Next consider the second tff instruc^ 
IFF A and B subfields are the samf^hefare & 
upon substitution so that q = 1 „ h }i P J - n 5 ^ 
next instruction is not assembled Therefore tMs°calf 6 
expands as follows: ore znis cal1 



CLA 
ADD 
ADD 



D 
E 
F 



By similar reasoning, the call 

SUM3' AC ,G,H, TEMP+1 
expands into 



ADD 
ADD 
ST0 



G 

H 

TEMP+1 



The revised coding begins as follows (see Example 17.2): 



SUM3 A,B,C,TEMP 

SUM3 D,E,F,AC 

SUM3 AC, G,H, TEMP+1 

SUM3 A,D,H,TEMP+2 
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The second and third calls expand into the following: 

CIA D 

ADD E 

ADD F 

ADD G 

ADD H 

ST0 TEMP+1 

The redundant coding of Example 17.2 ^ not assemb led 

In this use of the IFF pseudo-operation, the symbol 
"AC" is used because it is suggestive of the accumulator. 
Of course, any desired symbol may be used. 



(M) (355.4 - 355.9) 

This material has no exact counterpart in FAP, since 
TT7W r^eudo -operation is more structured differently 
f rom each of the S-type HAP pseudo-operations. However, 
Sere are parallels; the following usages are equivalent 
in the two languages: 

HAP FAP 

IFSAME A,B IFF 1,A,B 

IFDIFF A,B IFF 0,A,B 

IFZER0 Q IFF Q, 1 

IFN0NZ Q, IFF Q 

(The reader should now read the material of 
occ 4 _ ^.55.9 and then read the following.) 

The first two cases of IFF above, Illustrated in 
earlier examples, permit the variability of the second and 
third subfields. The last two cases illustrate its use 
with a variable first subfield, which can then be tested 
for zeroness. Thus, with subfield A = 1 and subfield B 
blank q = 0 and assembly of the next instruction occurs 
if and only if Q is zero. Conversely, in the last case, 
asslmbl? occurs if and only if 0, is nonzero. The book's 
examples of the following form apply in FAP: 

IFF Q/5 

IFF Q-Q/ 2*2,1 

(R) (356.0 " 356.4) 



REPETITION IN CODING 

Examp le 17 4 Write a macro-instruction to determine 
the sum of the cubes of three quantities and to store the 
result. 
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The macro-definition is 
Locn. Oper. Var. Fie ld 
SUMCUB 



MACR0 




STZ 




LDQ 


A 

Ji 


MPY 


A 
ri 


MPY 


A 


XCA 




ADD 


TFMP 

X Ill 11 J. 


ST0 


TFMP 




■R 

XJ 


MPY 


•R 


MPY 

1 IX X 


"R 


XCA 




ADD 


TFMP 


ST0 


TEMP 

X XJ J, IX 


LDO 


n 


MPY 


c 


MPY 


c 


XCA 




ADD 


TEMP 


ST0 


S 


END 





(r) (356.6 - 357.8) 

Coding delimited by the IRP (indefinite repeat) pseudo- 
operation at the start and end is repeated once for each 
call argument supplied for a dummy argument A, the coding 
being assembled with the call arguments given for A 

At the start: 

Oper. Var. Field 
IRP A 
At the end: 
IRP 

^L! eVeral ca Jl a 5 ,suments for A a ™ placed within paren- 
theses, separated by commas. 

. Ex g m Ple 17.4, continued Recode the SUMCUB macro- 
instruction, using IRP. 
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The new macro-definition: 
Locn. Oper. Var. Field 



SUMCTJB MACR0 
STZ 
IRP 
LDQ 
MPY 
MPY 
XCA 
ADD 
ST0 
IRP 
ST0 
END 

The call 

SUMCUB 

expands into 

STZ 
LDQ 
MPY 
MPY 
XCA 
ADD 
ST0 
LDQ 
MPY 



X,S 

TEMP 

X 

X 

X 

X 

TEMP 
TEMP 



(X1,X2,X3), RESULT 



TEMP 
XI 
XI 
XI 

TEMP 
TEMP 
X2 
X2 



The sequence is the same as given earlier, except for an 
extra ST0 instruction near the end of the sequence. 

The second macro-definition is shorter than the first 
and serves for any number of repetitions. Thus the same 
definition can be called upon by the following instruc- 
tions : 

SUMCUB ( W$RD1 , W0RD2 ) , ANSWER 
SUMCUB (Y1,Z1,X1,A1,B2,C3),SUM 

In the first two cases two parameters are involved; in the 
second, six parameters are involved. Through the use of 
the IRP pseudo-operation a macro-instruction of variable 
length may be defined. The length of the expanded coding 
depends on the manner in which the macro-instruction is 
called. 
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(357.9 - 358.3)' 



(r) 

CREATED SYMBOLS 

Example 17.5 Write a maoro-instruction that adds the 
larger of two numbers to a third, leaving the sum In the 
accumulator. If the numbers are equal, a jump to EQUAL 
should occur. ^^nu 

The macro-definition is 



Locn. 


Oper. 


Var. : 


LARSUM 


MACR0 


A,B,C 




CLA 


A 




CAS 


B 




TRA 


DD 




TRA 


EQUAL 




CLA 


B 


DD 


ADD 


C 




END 





(R). 



(358.4 - 358.10). 



o 7 UI ? W foments tha ^ appear in a macro-definition 
that are not called for within a macro-call, provided thev 
are omitted at the end of the call, are replaced by the 
assembler by created symbols. The following symbols are 
created: ..001, ..002, ..003, etc.; they are created in 
this sequence as needed. 

t ADOTi^ 8 ^ 16 , 11: 5 ' 6ontln "*rt Rewrite the macro-instruction 
LARSUM, permitting a created symbol. 

The macro-definition, which has one extra dummy 
argument, is * 

Locn. 



LARSUM 



DD 



Oper. 


Var. Field 


MACR0 


A,B,C,DD 


CLA 


A 


CAS 


B 


TRA 


DD 


TRA 


EQUAL 


CLA 


B 


ADD 


C 


END 
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The call 



LARSUM NUMBR1 , NUMBR2 , DIGIT 

which means "add the larger of the C(NUMBRl) and the n 
C(NUMBR2) to the C (DIGIT), and leave the sum in the AC, 
expands Into 



. .001 



CIA 
CAS 
TRA 
TRA 
CAL 
ADD 



NUMBR1 

NUMBR2 

. .001 

EQUAL 

NUMBR2 

DIGIT 



■(359.0 - 359.3)' 



(M) 

This material applies here, with just one change. 
Dummy arguments to be replaced by created symbols do not 
appear on CREATE cards, as described in the book. 



(R) (359.3 - 359.7) 

Example 17.6 Write a macro-instruction that places 
the larger of two numbers in the accumulator. If the 
numbers are equal, a jump to EQUAL should occur. 

The macro-definition is 



Locn. Oper. 



LARGER 



DD 



MACR0 

CLA 

CAS 

TRA 

TRA 

CLA 

BSS 

END 



Var. Field 

A,B,DD 

A 

B 

DD 

EQUAL 

B 

0 



The call 

LARGER W0RD5,W0RD7 



expands into 



. .001 



CLA 
CAS 
TRA 
TRA 
CLA 
BSS 



W0RD5 
W0RD7 
. .001 

EQUAL 
W0RD7 
0 



(s) 



A special pseudo-operation is available to determine 
whether or not a given symbol within a macro-definition 
has been replaced by a created symbol. 

Oper. Var. Field 

IFF P,/CRS/X 

P has the same significance as previously, in the IFF 
pseudo-operation. The quantity q has the value 0 if X is 
not a created symbol and the value 1 if it is. Thus, 

IFF 1,/CRS/Q 

causes assembly of the next instruction if and only if Q, 
is created. 

(r) (360.3 - 361.3) 

REMOTE ASSEMBLY 

Coding delimited by the card 

RMT 

(for remote) at the start and at the end is assembled as 
normally but is not assigned to memory locations until the 
end of the program. 

Example 17.7 Write a macro-instruction to evaluate 
and store the function 

f (x) = 5a + be 

At constant, 5, and one word of temporary storage are 
required. In the following macro-instruction, these two 
words are remotely assembled. 



108 



Locn . 


Oper. 


Var. Field 


PUNCTN 


MACR0 


A,B,C,R,FIVE,TEMP 




LDQ 


A 




MPY 


FIVE 




STQ 


TEMP 




LDQ 


B 




MPY 


C 




XCA 






ADD 


TEMP 




ST0 


R 




RMT 




FIVE 


TWO 

DEO 


D 


TEMP 








RMT 






END 




The 


call 






FUNCTN 


XX,YYY,ZZZZ,ANS 


expands into 






LDQ 


XX 




MPY 


. .001 




ST0 


. .002 




LDQ 


YYY 




MPY 


17 17 17 17 




XCA 






ADD 


. .002 




ST0 


ANS 


while the 


two words 


. . 001 


DEC 


5 



. .002 



are assembled at the end of the program. Created symbols 
are used to refer to these two words to avoid multiple 
definitions as "before. 

(This method actually wastes space, however, since 
two words are assembled per FUNCTN macro-call, whereas 
only two are needed in all. However, it points out that 
macro-instructions can be completely self-contained, which 
is useful. ) 



(R) (36lj4 _ 362>4) ^ 

NESTED MACRO-INSTRUCTIONS 

one oFS-^ fu n W o1 1 t :ns: ma0r °- lnStrUOtl0n that °<»»»*« 



f - a + b, 
g = a - t, 



if a and b are both positive; 
otherwise . 



are dX" nm!'™" 1 ™" f ° r addltlon and subtraction 

Locn .r,. . Oper. Var. Field 

ADDMAC MACR0 A.B, C 

CLA A 

ADD B 

ST0 C 
END 

SUBMAC MACR0 A^B.C 

CLA A 

SUB B 

ST0 C 
END 

The main macro-definition is 



C0MPUT MACR0 
CLA 
TMI 
CLA 
TMI 



SUB 
0UT 



The call 



ADDMAC K,L,S 

TRA 0ut 

SUBMAC K,L,S 

BSS 0 
END 



K,L,S,SUB,0UT 

K 

SUB 
L 

SUB 



C0MPUT THIS, THAT, RESULT 

L(b) n = S THAT° Tnl Lff I™??, T ^ Where L ^ " ™IS, 
\vj ±n*i, ana L(f ) or L(g) is RESULT. 
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. .001 



. .002 



CIA 


THIS 


TMI 


. .001. 


CIA 


THAT 


TMI 


. .001 


CIA 


THIS 


ADD 


THAT 


ST0 


RESULT 


TRA 


. .002 


CIA 


THIS 


SUB 


THAT 


ST0 


RESULT 


BSS 


0 



Expansion of ADDMAC 



Expansion of SUBMAC 



(M) (363.7 - 364.5) 

(This material has no counterpart ^^P, B ince there 

var^le Iddress that refers to the end of the macro- 
Instruction. In other words, G0 causes assembly of the 
of the macro-instruction to be suppressed J 



(365.3 - 366.4)- 



(R) 

Krample 17.10 Write a macro-instructions to perform 

tW ° l.^iS^tSg^nt Placing zeros in every 
ord in the b log ic. The call is to have the form 



w 



Locn. Qper. 



CLRBLK 



Var. Field 
BL0CK,N 



This means "Clear the block starting at BL0CK of size 
GW"ftne number of words in the block is located in N. 
The macro-definition is 



CLRBLK MACR0 A,B 
AXT B,4 
STZ A+B,4 
TIX *-l,4,l 
END 

XR4 is used in all the block macro-instructions a 
therefore to be used outside with caution. 



Ill 



2. Moving The call is to have the form 

MOVBLK BL0CK1,N1,BL0CK2,N2 

This means "Move the block at BL0CK1 of size C(Nl) so that 
it immediately follows the block at BL0CK2 of size C(N2). 
The macro-definition is 



MOVBLK 


MACR0 


B1,N1,B2 


,N2,Z1,Z2,Y1,Y2 




CLA 


Zl 






ADD 


Nl 






STA 


Yl 






CLA 


Z2 






ADD 


Nl 






ADD 


N2 






STA 


Y2 






AXT 


Nl,4 




Yl 


CLA 


**,4 i 


fBl+Nl) 


Y2 


ST0 


**,4 l 


(B2+N1+N2) 




TIX 


*-2,4,l 




RMT 




Zl 




Bl 




Z2 


RMT 
END 


B2 





The first 7 instructions are used to set the addresses of 
locations Yl and Y2. The first such address (of Yl) must 
be set to "BLjZCKl+nj" and the second (of Y2) must be set to 

BL0CK2+n 1 +no if the first word in BL0CK1 is to go after 
the last word in BL0CK2. 

(Refer to the book for the continuation of the example.) 

( R ) (366.8 - 367.9) — — 

Example 17.11 Write a program that (l) reads three 
blocks of data (with no more than 2500 numbers in each) 
from tape F, placing them in blocks starting at LIST, 
TABLE, and DIGITS, (2) combines these into one larger block 
at DIGITS, (3) places in a new block at NUMBRS all positive 
numbers from this block that are less than 1000, and (4) 
then prints out the list of such numbers on tape G. The 
number of words in each of the three records on tape appears 
in a three-word record at the start of the tape. 

After the three blocks are read in, they are combined 
at DIGITS . In order to add the third block (TABLE) the 
size of the combined blocks at DIGITS and LIST must be com- 
puted. The total size of the combined blocks is needed for 
the loop within which all positive numbers less than 1000 
are stored in NUMBRS. As each number is stored in that 
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block, the C(XR2) is decreased by 1; XR2 is used as a 
pointer to the next available location in the block at 
NUMBRS. Finally, the number of words in NUMBRS is placed 
in SZ4 and used in the PRTBLK macro-instruction. In the 
program, note that the three-word record will be read into 
SZ1 through SZ1+2, i.e., into SZ1, SZ2, and SZ3. 



Locn. Oper. Var. Field 





READBK 


SZ1, THREE, F 


Read 3-word record 




n-n n t-\t~)T/" 

READBK 


LIST,SZ1,F 






READBK 


TABLE, SZ2,F 
DIGITS, SZ3,F 






READBK 






M0VBLK 


LIST, SZ1, DIGITS, SZ3 




CLA 


SZ1 


Form size of 2 blocks 




ADD 


SZ3 






ST0 


SUMSZ 






ADD 


SZ2 


Form size of 3 blocks 




ST0 


T0TLSZ 






M0VBLK 


TABLE , SZ 2, DIGITS , SUMSZ 




AXT 


7500,2 






CLA 


XDIGIT 


Set address 




ADD 


T0TLSZ 






STA 


M0RE 






LXA 


T0TLSZ,1 


(DIGITS+totlsz) 


M0RE 


CLA 


*■* ]_ 

N0LIST 


TMI 


Place pos. numbers 




CAS 


TH0US 


smaller than 1000 




TRA 


N0LIST 


in NUMBRS 




TRA 


N0LIST 






ST0 


NUMBRS +7 5 00, 2 






TXI 


*+l,2,-l 




N0LIST 


TIX 


M0RE,1,1 






SXA 


TEMP, 2 


Determine count 




CLA 


X7500 


of numbers stored 




SUB 


TEMP 






ST0 


SZ4 






PRTBLK 


NUMBRS, SZ4,G 






HTR 







(Cont'd. ) 
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Locn. Oper. 



Var. Field 



SZ1 

kj lj j_ 






979 

U f_ 












97 




















LJIhKj 


1 DDD 

J. KJKJyJ 






D 


XDIGIT 






TEMP 






LIST 


BSS 


2500 


TABLE 


BSS 


2500 


DIGITS 


BSS 


7500 


NUMBRS 


BSS 


7500 



(R) (368.4 - 370.7) 

Example 17.12 Write macro-instructions to simulate 
100 index registers, using the CLA instruction as a 
specific illustration. 

Normal assembler instruction names, e.g., CLA, ADD, 
and SUB, are to be used by the programmer in the usual 
manner, but with tags as high as 100. Since an instruc- 
tion such as 



CLA LIST, 68 



would be misinterpreted by the assembler under normal 
circumstances, the symbol CLA must refer to a macro- 
instruction. This macro-instruction must produce the 
proper coding for the simulation of XR68. 

In order that the assembler operation codes be inter- 
preted as macro-instructions, new names must be assigned 
to the machine instructions. This may be done by a series 
of pseudo-operations as follows: 



Locn . Oper. Var. Field 

CLA. 0PSYN CLA 

ADD. 0PSYN ADD 

SUB. 0PSYN SUB 



Now the original names (in the variable field above) may 
be used as macro-instruction names. 
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Since the 7094 has 7 Index registers, 93 will be 
simulated. XR8 through XR100 will be simulated by 
93 words in memory in a block, starting at SIMXR. Thus, 
XRJ, where J = 8, 9, 100, will be simulated by loca- 

tion SIMXR+J-8. 

Consider the simulation of the CIA instruction. One 
of three coding sequences must be assembled, conditional 
on the tag: (l) an untagged CLA instruction is required 
if no tag is present; (2) a normal, tagged CLA instruction 
is required if a tag from 1 to 7 is given; and (3) a 
coding sequence as follows is required if a tag from 8 
to 100 is given: the instructions assembled must, when 
they are executed later, modify the CLA operand address by 
the contents of the simulated XR. These conditions are 
depicted in Pig. 17.1 in the book. 

Conditional-assembly techniques are required. Two 
decisions must be made. The test for a tag can be made 
with the IFF test for a created symbol; if the tag is 
omitted, a created symbol can be produced. The test for 
the "size" of the tag can be made with another form of the 
IFF pseudo-operation. Because IFF affects only thefollowing 
instruction, an inner macro-call is required, since several 
instructions must be assembled conditionally. 

The instructions assembled in the event that a tag 
from 8 through 100 is given provide for saving and 
restoring XR1, which is used as the actual index register, 
for executing the CLA instruction, and for loading XR1 
with the C (SIMXR+J-8 ) . 

The macro-definitions are 

Locn . Oper. Var. Field 



CLA 



MACR0 



A,T 

1,/CRS/T 
A 

0,/CRS/T 
A, T 



IFF 
CLA. 

IFF 

CLAM 

END 



Assemble if no tag 



Assemble if tag 



CLAM 



MACR0 



A, T 
T/8,1 



IFF 
CLA. 

IFF 

CLAN 

END 



A, T 



A,T 

T/8 



Assemble if tag is 

1 through 7 
Assemble otherwise 



CLAN 



MACR0 

SXA. 

LXA. 

CLA. 

LXA. 

END 



A T 

SAVX1,1 

SIMXR+T-8,1 

A,l 

SAVX1,1 



Save XR1 
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The use of a normal machine operation code as a macro- 
instruction name reassigns that name to the latter function 
and deletes its use as a machine operation for that 
assembly. Thus CIA now refers only to the macro-instruc- 
tion . 

Note that operation codes ending in "." are used when 
a machine instruction is to be assembled. The following 
three macro-calls lead to the accompanying expnasions: 

Oper. Var. Field 

1. Call: CIA SWITCH 



Expansion : 


CIA. 


SWITCH 


Call: 


CIA 


LIST, 5 


Expansion : 


CLA . 


LIST, 5 


Call: 


CLA 


NAME, 32 


Expansion : 


SXA. 
LXA. 
CLA. 
LXA. 


SAVX1, 1 
SIMXR+32-8,1 
NAME, 1 
SAVX1, 1 



Other instructions are similarly simulated, but a 
different coding structure is needed for such instructions 
as LXA, TXI, and TSX. To simulate LXA, e.g., we need only 
place a number in the proper SIMXR word (if the tag is 8 
or greater); it is not necessary to use a real index 
register in the process. Similarly, to simulate TXI, we 
need only increase the proper SIMXR word contents. 

(r) (371.2 - 371.8)- 

Locn. Oper. Var. Field 

HALT MACR0 
HTR 
END 



ADD. 0PSYN ADD 

ADD MACR0 A,B,C 

CLA A 

ADD. B 

ST0 C 
END 
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Locn. Oper. Var. Field 



SUBT MACR0 A,B,C 

CLA A 

SUB B 

ST0 C 
END 



MULT MACR0 A,B,C 

LDQ A 

MPY B 

STQ C 
END 



DIV MACR0 A,B,C 

LDQ, A 

PXA 0,0 

LLS 0 

DVP B 

STQ C 
END 



M0VE MACR0 A,B,C 

A XT B-A+1,4 

CLA B+1,4 

ST0 C+B-A+1,4 

TIX *-2,4,l 
END 



JUMP MACR0 A 
TRA A 
END 



JUMPPM MACR0 A,B,C 

CLA A 

TPL B 

TMI C 
END 
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(R) 



(372.4 - 373.2)- 



Example 17.13 The first technique might use a PRINT L 
macro-instruction which provided a printout (probably with 
a standard format) of an indefinite number of specified 
words (a list), as in 

PRINT L ( NUMBR , W0RD , W0RD+3 , XYZ ) 

The structure of PRINT L depends on the form of the call 
for the monitor input-output subroutine. . It can be 
inserted at any desired points in the program. 

The second technique can be exemplified by a procedure 
that automatically supplies a printout of the contents of 
the referenced location in any ST0 instruction. To accom- 
plish this, the operation ST0 must be defined as a macro- 
instruction. Another printing macro-instruction, PRINT, 
is used. 



Locn . Oper. 



ST0. 

ST0 



0PSYN 

MACR0 

IFF 

ST0. 

IFF 

ST0. 

PRINT 

END 



Var. Field 

ST0 
A T 

1,VCRS/T 
A 

0,/CRS/T 

A,T 

A,T 



To allow for the presence or absence of a tag, the IFF 
pseudo-operations are used. Here, we shall assume that a 
tag may also be present on the PRINT call. 

( R ) -_ (373.6 - 374.8) 

Example 17.14 Write the TURN0N and TURN0F macro- 
instructions described. 

To accomplish this, ST0 must be used for both the 
normal machine instruction (when no printing is desired) 
and for the macro-instruction (when printing is desired). 
The TURN0N and TURN0F macro-instructions have the function 
of the switching the significance (and interpretation) of 
the word ST0 back and forth between these two, the machine 
instruction and the macro-instruction. In this way the 
printing feature is "turned on and off." 
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The TURN0N and TURN0P macro-instructions have no 
arguments; their calls appear to be pseudo-operations. 



Locn . 


Oper. 


Var. Field 


ST0. 


0PSYN 


ST0 


oT0. . 


Mft nx3/% 


A T 




IFF 


1^/CRS/T 




ST0. 


A 




IFF 


0,/CRS/T 




o i yj . 


A, I 




PRINT 


A,T 




END 




TUKN0N 


MACR0 




ST0 


0PSYN 


ST0. . 




END 




TURN0F 


MACR0 




ST0 


0PSYN 


ST0. 




END 





A short program, using these features, follows: 
Locn . Oper. Var. Field 



TURN0N 




AXT 


200, 1 


CLA 


LIST+200, 1 


ADD 


SIX 


ST0 


LIST+200, 1 


TIX 


QQQ, 1,1 


TURN0F 




CLA 


NUMBER 


ST0 


TABLE 


TZE 


0UT 



This sequence expands into the following coding 
(macro-calls are not given): 



AXT 


200,1 


CLA 


LIST+200,1 


ADD 


SIX 


ST0. 


LIST+200, 1 


PRINT 


LIST+200,1 


TIX 


QQQ,1,1 


CLA 


NUMBER 


ST0. 


TABLE 


TZE 


0UT 
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(R) 



(375.3 - 376.2)- 



Example 17.15 
(l) at every third 
third ST0 execution 

1. The ST0 ma 
modified to provide 
macro-instruction ( 
counter, increased 
called. The IFF va 
earlier, in Section 
Assembly of PRINT o 

Locn . Oper. 



Q 

ST0. 

ST0 



SET 
0PSYN 

MACR0 

IFF 

ST0. 

IFF 

ST0. 

SET 

IFF 

PRINT 

END 



Write coding so that printing occurs 
ST0 instruction, and (2) at every 

• 

cro-instruction of Example 17.13 is 

for conditional assembly of the output 
PRINT). The symbol Q, is used as a 
by 1 each time the macro-instruction is 
riable field is similar to one given 
17.1, under "Conditional Assembly." 
ccurs every time Q is a multiple of 3. 

Var. Field 

0 

ST0 
A,T 

1,/CRS/T 
A 

0,/CRS/T 

A,T 

Q+l 

A,T 



2. Now counting must be done when the program is 
executed. To achieve this, a sequence of coding must be 
included that calculates the function Q-Q/3*3 where the 
contents of the counter is Q (when the program is 
executed). 

CLA CNTR Q+l to Q, 

ADD 0NE 
ST0 CNTR 
XCA 

PXA 0,0 
EVP THREE 

MPY THREE Q/3*3 

TNZ N0PRINT Test for Q-Q/3*3 = 0 

PRINT A,T 
N0PRNT ... 



It is easier to compute the remainder directly, but this 
approach is taken as a parallel to method 1. 
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(R)— (376.5 - 378.4) 

Example 17. 16 Write a macro-instruction that will 
cause a single word to be assembled, containing n.' The 
call is to be as follows: 

FACTL N 

where N represents an integer to be supplied. 

Two nested macro-instructions are used. In the inner 
macro-instruction (FACTLX) the actual recursion occurs. 
The macro-instruction repeatedly calls itself, each time 
computing one more factor in ni , as follows: 1'2«3' • 
At the same time, a "counter" Q, is used for loop control; 
the counter runs from 1 to n. An IFF is used to control 
the recursionj when the counter contains the value n, the 
process stops. 

The outer macro-instruction is used to initialize both 
the counter Q (at 0) and a partial product F (at l). If n 
is given as 0, assembly of the FATCLX macro-call is sup- 
pressed and F (which is n.' ) is set equal to 1. After 
FACTLX computes nj (for n £ 0), the word containing n. 1 is 
assembled. A flowchart of the process appears in Fig. 17.2 
in the book. 

Locn . Oper. Var. Field 



FACTL 


MACR0 


N,Z 


Q 


SET 


0 


F 


SET 


1 




IFF 


N 




FACTLX 


N 


Z 


DEC 


F 




END 




FACTLX 


MACR0 


N 


Q 


SET 


Q+l 


F 


SET 


F*Q 




IFF 


Q-N 




FACTLX 


N 




END 





As an example of how this works , consider the call 

PACTL 4 

Following is a list of most of the pseudo-operations as 
they are generated in the assembly process during the 
recursive calling of FACTLX. The SET and IFF pseudo- 
operations are listed in the order of their generation: 



Expansion 


of 


FACTL: 




Q 


SET 


0 










F 


SET 


1 












IFF 


4 


Expan sion 


of 


FACTLX 


( 1st time ) : 


Q 


SET 


l 








F 


SET 


l 












IFF 




Expansion 


of 


FACTLX 


(2nd time ) : 


Q 


SET 


2 








F - 


SET 


2 












IFF 


-2 


Expansion 


of 


FACTLX 


(3rd time ) : 


Q 


SET 


3 








F 


SET 


6 












IFF 


-1 


Expansion 


of 


FACTLX 


(4th time) : 


Q 


SET 


4 








F 


SET 


24 












IFF 


0 


Expansion 


of 


FACTL: 




. .001 


DEC 


24 



Chapter 18 
INTERPRETERS AND SIMULATION 



(R) 



(387.5 - 391.2) 



AN INTERPRET IVE PROGRAM 

The following instruction is useful in Example 18.2. 

LOAD COMPLEMENT OP ADDRESS IN INDEX (LAC Y) (+0535); 
2 cycles. The 2's complement of the C(Y)2i-35 replaces 
the contents of the specified index register. The C(Y) 
is unchanged. 

Example 18.2 Refer to the book for the introduction 
to an analysis and flowchart of this program. That mater- 
ial applies here with one modification. The complement of 
the C( 10000) is placed in XR2, rather than the C( 10000), 
as noted at 398.3- This is necessary because 7090 index 
registers work by decrementing. Notice that 100008 must 
be added to addresses in the program before they are used 
to set addresses or SIMAR, as in the M0VE, JUMPSR, and 
JPPMSR routines. 

Locn. Oper. Var. Field 



LAC 
CLA 
ST0 



/0/1OOOO.2 

/0/1OOO1. 

SIMAR 



Place compl. of C( 10000 ) 
in XR2 



Place starting addr in 
SIMAR 



NEXT 



CAL* 

ANA 

ARS 

STA 

CAL* 

ANA 

ARS 

STA 

CAL* 

ANA 

STA 



SIMAR 
AMASK 
18 



ADDRA 
SIMAR 
BMASK 
9 



Obtain A-address by 
masking out rest of 
instruction; place in 
ADDRA 



Obtain B-address... 



ADDRB 
SIMAR 
CMASK 
ADDRC 



Obtain C-address. . . 



(Cont 'd. ) 
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Locn . Oper. 

CAL* 

ANA 

ARS 

PAX 

TRA* 

SUBRT 



RETURN CIA 
ADD 
ST0 
TRA 



HALTSR 
ADDSR 



SUBTSR 



MULTSR 



DIVSR 



M0VESR 



HTR 

CLA* 

ADD* 

ST0* 

TRA 

CLA* 

SUB* 

ST0* 

TRA 

LDQ* 

MPY* 

STQ* 

TRA 

IDQ* 

PXA 

LLS 

DVP* 

TRA 

CLA 

SUB 

ADD 

PAX 

ADD 

ADD 

STA 

SUB 

ADD 

STA 



Var. Field 

SIMAR 
0PMASK 
27 
0,1 

SUBRT+7,1 

JPPMSR 

JUMPS R 

M0VESR 

DIVSR 

MULTSR 

SUBTSR 

ADDSR 

HALTSR 

SIMAR 

0NE 

SIMAR 

NEXT 



ADDRA 

ADDRB 

ADDRC 

RETURN 

ADDRA 

ADDRB 

ADDRC 

RETURN 

ADDRA 

ADDRB 

ADDRC 

RETURN 

ADDRA 

0,0 

0 

ADDRB 

RETURN 

ADDRB 

ADDRA 

0NE 

0,4 

ADDRA 

REL0CN 

MV1 

ADDRA 

ADDRC 

MV2 



Obtain operation code 



Place op. code in XR1 
Transfer on op. code 

7 
6 

5 
4 

3 
2 

1 

0 

Return point after non- 
tra. execution; modify 
SIMAR by 1 



Form size of block: 
B-A+l 

Place size in XR4 

Add 10000 for relocation 



(Cont'd. ) 
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Locn . 


Oper. 


Var. Field 


MV1 


CIA 


**, 4 


MV2 


ST0 


**,4 




TIX 


*-2,4,l 




TRA 


RETURN 


JUMPSR 


CLA 


ADDRA 




ADD 


REL0CN 




STA 


SIMAR 




TRA 


NEXT 


JPPMSR 


CIA* 


ADDRA 




TPL 


TRl 




CIA 


ADDRC 




ADD 


REL0CN 




STA 


SIMAR 




TRA 


NEXT 


TRl 


CIA 


ADDRB 




ADD 


REL0CN 




STA 


SIMAR 




TRA 


NEXT 



B+l, which is A+size) 
B-A+C+l, which is 
C+size ) 

Fetch new address for 
SIMAR 



Test sign of C( ADDRA) 
Set SIMAR to C-address 



Set SIMAR to B-address 



SIMAR 

AMASK 0CT 
BMASK 0CT 
CMASK 0CT 
0PMASK 0CT 
ADDRA 
ADDRB 
ADDRC 

0NE DEC 
REL0CN 0CT 



000777000000 
000000777000 
000000000777 
007000000000 



**,2 
**,2 
**,2 
1 

10000 



Simulated AR 
Masks 



Registers for the 3 
addresses 



(M) 



(391.7 - 394.8) 



(The material in 391.7 - 394.8, though it applies to 
a program written for the DELTA 63, applies to a study of 
interpreters on the 7090 as well. The concepts are 
general, and a study of the material can be understood 
almost entirely even if details on coding are not.) 



(R) 



■(395.3 - 395.10)' 



Example 18.4 Write routines for a self -interpreter 
for the 7090 to simulate the instructions TXI, TSX, and 
TIX. 

In the self-interpreter, the address, tag, and 
decrement portions of the instruction being executed 
interpretively are placed in ADDR, TAG, and DECR, respec- 
tively (in the address fields). Then control goes to the 



individual routines. In addition, the SETTAG routine is 
executed at that time. Its purpose is to set into a 
memory location the tag of the instruction being executed' 
the address field of that word contains the address ' 
SIMXR-1. SIMXR heads a block of seven words ; SIMXR+J-1 
represents the simulated XRJ (allowing for seven index 
registers). An indirect address reference to that word 
thus references the proper simulated XR. The 15 rightmost 
bits of the simulated XR represent the contents of that 
XR. 

The routine for setting the index-register address: 
Locn. Oper. Var. Field 



SETTAG 



REPXR 
BSIMXR 



CLA 
ADD 
ST0 



BSIMXR 

TAG 

REPXR 



SIMXR-1 



(SIMXR+J-1) 



In the following routines, SIMAR, RETURN, and NEXT 
represent the same instructions as in Example 18.2* 
control passes to RETURN if a transfer is not executed- 
control passes to NEXT if a transfer is executed. The' 
STA instruction is used to store a new value. in the 
simulated XRs,« by so doing, any arithmetic performed on 
the XR is effectively done modulo lOOOOOg as required. 



TXI: 



TSX: 



Oper. 


Var. Field 


CLA* 


REFXR 


ADD 


DECR 


STA* 


REFXR 


CLA 


ADDR 


ST0 


SIMAR 


TRA 


NEXT 


CLA 


SIMAR 


CAS 


DECR 


TRA 


*+3 


TRA 


RETURN 


TRA 


RETURN 


SUB 


DECR 


STA* 


REFXR 


CLA 


ADDR 


ST0 


SIMAR 


TRA 


NEXT 



Modify XR 
"Transfer" 



Form 2's complement 

with decrement 
C(XR) gr. than deer. 
C(XR) equal to deer. ; 

"go on" 
Modify C(XR) by decrement 



"Transfer" 



The last three instructions in these three routines are 
identical and could be combined. 



Chapter 19 
PROGRAM DEBUGGING AND TESTING 



( S ) (At 402.3) " 

ASSEMBLER AIDS 

In addition to the errors listed in the book, the PAP 
assembler also flags these errors: 

6. Illegal indirect addressing. 

7. Improper tag and decrement. 

8. Errors in other pseudo-operations. 
9*. Relocation errors. 



( R ) (402.4 - 403.8) 

Example 19. 1 The following letters are used by the 
FAP assembler to flag errors: 
U - undefined symbol 
M - multiply-defined symbol 

0 - illegal operation code 

G - error in data-generating card, such as 0CT or DEC 
A - improper address or omitted address where required 
T - improper tag or omitted tag where required 
D - improper decrement or omitted decrement where 
required 

1 - illegal indirect addressing 

P - illegal use of pseudo-operation 
R - relocation error. 

Other flags are given, under appropriate conditions 

The program below, taken from Example 8.7, is recoded 
with several errors that are flaggable by the assembler. 
The octal listing is given with error flags. Note that 
portions of octal words are omitted where errors are 
present . 
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iAJOd L> J.UI1 


Contents 


Location 




OOdOO 








UUcUl 


+05o0 00 1 04147 


NEW0NE 


1 


UUcUc 


+0f (4 00 0 03720 






+0(54 00 0 00000 




TT 

U 




+0221 00 0 








00000 0 00000 






UUcUO 


I ) 1 a a a aaaaa 

+Ufj54 00 2 00000 








+0500 00 2 0022 r 




M 


00210 


+0400 00 0 00214 






00211 


+0501 00 2 00227 




TIT) 


0091 9 


+£: UUUUU 00201 






ooon "5 


+0000 00 0 00000 




M 


00214 


+000000000001 






00215 




CTABLE 




00227 




LIST 


M 


04147 


+0 00000 0 00001 


0NE 



Oper. 

0RG 
IDQ 
AXT 
PXA 
DVP 
XAC 
PAX 
CLA 
ADD 
ST0 
TIX 
HTR 

DEC 
BSS 
BSS 
PZE 
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Var. Field 

/0/2OO 

LIST+2 000,1 

2000 

0,0 

TEN 

0,2 

CTABLE+10, 2 
0NE 

CTABLE+10,2 
NEW0NE,I 



1 

10 

2000 
1 



The errors made were as follows: (l) omission of the 
tag in the AXT instruction; (2) failure to define the 
symbol TEN"; (3) mispunching of XCA as "XAC"; (4) multiply 
defining the symbol "0NE " ; (5) mispunching of the tag "l" 
/!\ ln TIXj thls a PP ears as an undefined symbol ( ff l")« 
(b) omission of the decrement in the TIX instruction. Note 
that two flags appear on one line; two errors were made 
in one symbolic instruction. 

In the event that part or all of a word cannot be 
assembled because of an error, the FAP assembler sometimes 
leaves blanks or, in the case of a multiply-defined symbol 
assembles the earlier address. The resulting object deck ' 
will have zeros punched where blanks appear in the listing 
Thus, at location 00204, the following word is assembled 
in the deck: 



022100000000 

If certain fatal errors occur in a program, an object deck 
is normally not produced and the program is not run at that 
time; such errors include those with flags TJ, M, and 0 
Other errors, called nonfatal , do not inhibit deck punching 
or immediate execution; these include those with flags A, 
T, and D. These latter "errors" may be intentional and the 
assembler permits a run. Optionally, a deck may be punched 
regardless, if appropriate indications is given. PAP pro- 
vides, with the listing, a list of undefined and multiplv- 
defined symbols. 

The errors made .in this example,, like all coding errors 
can be corrected by the use of correction cards, described 
in Section 11.1, or by reassembly. 



128 



The following octal correction cards will correct the 
errors made in the program. They would be applied to the 
object deck. 



Locn. 


Oper. 


Var. Field 


00202 


0CT 


077400103720 


00204 


0CT 


022100020000 


00205 


0CT 


013100000000 


00212 


0CT 


200001100201 


20000 


0CT 


000000000012 



Most of these cards are easily understandable. Note that 
a word containing 10 (128) has been established at loca- 
tion 20000, a location outside the program. 



(R) (403.9 - 404.2)- 



Example 19.2 The symbol reference table for the pro- 
gram coded in Example 8.7 is as follows: 

Locn . Symbol References 

00214 0NE 00210,00214 
04147 TEN 00204, 04147 
00227 LIST 00201,00227 

00215 CTABLE 00207,00211,00215 
00201 NEW0NE 00201,00212 



(r) (406.4 - 406.7)' 



HELP AT THE CONSOLE 

Example 19.3 Refer to the book for a description and 
analysis of this problem. There are, of course, only 
three index registers, in the 7090; this will not effect 
the description given. The instructions under considera- 
tion are the following: 

TRA 02123,2 
TRA 02234,4 



(R) (409.4 - 409.10) 

THE USE OF DUMPS 

In the 7090 a special trapping feature is provided. 
If bits S, 1, and 2 of an instruction being executed con- 
tain the bits 1, 0, and 1, respectively, the instruction 
is interpreted as STR: 
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STORE LOCATION AND TRAP (STR); 2 cycles. The loca- 
tion of this instruction, plus one, replaces positions 21- 
35 of location 00000. The computer then takes its next 
instruction from location 00002. The contents of posi- 
tions 3-35 of this instruction are not interpreted. 

Through the use of STR, the monitor system is able to 
gain control. As the program deck is loaded, the SNAP 
cards are also loaded. As these are encountered by the 
monitor, the information on them is stored within the 
snapshot routine. A snapshot table is established with a 
list of addresses where snapshots are requested and with 
other appropriate information. The monitor places the STR 
prefix in bits S, 1, and 2, after saving the instructions' 
original prefixes. 

During the running of the program, when control passes 
to an instruction containing an STR prefix, a trap occurs 
and control passes to 00002. At that location, a transfer 
instruction sends control to the snapshot routine. There 
a search is made of the snapshot table, and if a dump was 
requested at the address in location 00000 (from where 
control just came), the dump is given.* Then the instruc- 
tion with the STR prefix must be executed. This is done 
remotely, within the monitor, where the proper prefix is 
combined with the other 33 bits of the instruction so that 
execution can occur. Finally, control returns to the pro- 
gram being run so that it may continue at the point from 
which control left it. 

To assist the programmer when his program unintention- 
ally sends control outside the block of executable instruc- 
tions, the monitor, just prior to loading a program, places 
STR prefixes throughout memory (except for the monitor 
area). Programs loaded into memory of course write over 
some of these STR's, but the areas not so covered retain 
them,* areas set aside by BSS pseudo-operations retain their 
STR's. If, then, control passes to a location outside the 
program (or possibly to within a block of data), a trap 
occurs and the monitor, recognizing the fact that no snap- 
shot was requested at that location, stops the program, 
indicating where control went erroneously. 

( R ) (413.1 - 413.9) 

THE USE OF MACRO-INSTRUCTIONS 

Example 19.4 Write a short program containing a loop 
in which a debugging macro-call is placed 



^Actually, 00000 contains one more than that address. 
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The program: 



Locn . 


Oper. 


Var. Field 




AXT 


100, 1 


START 


CLA 


SUM 




ADD 


NUMBRS+100, 1 




ST0 


SUM 




PRTBLK 


0, SUM, SUM, UNTIL, 5 




TIX 


START, 1, 1 




HTR 





The resultant printout, which merely shows the contents of 
SUM, might appear as follows: 

000000000010 
000000000034 
000000000055 
000000000067 
000000000102 

The next example shows a more complex printout, the 
dump of two different blocks. 

Example 19.5 Consider Example 8.6, which sorts a 
list of 1000 numbers into two blocks, P0SLST and NEGLST. 
Assume that the following two cards are inserted in the 
program immediately preceding the instruction at M0D: 

PRTBLK D,P0SLST,POSLST+3,UNTIL,4 
PRTBLK D, NEGLST , NEGLST +2, UNTIL, 3 

The request here is for a decimal output, assumed to be 
given with three or four words to a line. The resultant 
output might be as follows: 



+23498 


0 


0 


0 


0 


0 


0 




+23498 


0 


0 


0 


-232 


0 


0 




+23498 


0 


0 


0 


-232 


-86001 


0 




+23498 


+77 


0 


0 



Note that four dumps of P0SLST (four numbers on a line) 
were given, while three dumps of NEGLST (three numbers on 
a line) were given. 
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(R) (414.3 - 415.3) 

Example 19.6 Write a macro-instruction that will 
provide the following information, all in octal, when 
control passes to it: 

1. The C(AC) and the C(MQ): 

2. the contents of the three index registers; 

3. the contents of any three specified words in 
memory; 

4. the contents of a block of any size in memory. 
A typical call is : 

DUMP W0RD, XXX, SUM, LIST, LIST+10 

which means "Dump the AC, the MQ, the three XRs, locations 
W0RD, XX, and SUM, and the block from LIST through LIST+10." 

In the macro-instruction that follows, the index 
registers, the AC, and the MQ are first saved and subse- 
quently restored. The PRINTL macro-instruction of 
Example 17.13 is used to print a list. A new macro- 
instruction, PRINTB, is used to print a block. 

Locn . Oper. 

DUMP MACR0 
SXA 
SXA 
SXA 
SLW 
ARS 
ST0 
STQ 

PRINTL 
PRINTL 
PRINTB 
CLA 
ALS 
0RA 
LDQ 
LXA 
LXA 
LXA 
END 

Q BSS 
N3777 0CT 



Var. Field 




Save XRs 



These 3 instructions save 
all 38 bits of the AC 

Save MQ 

Print XRs 

Print 3 words 

Print block 

These 3 instructions 

restore the complete AC 



377777777777 



INDEX 



Accumulator 2, 68 

Addition 2-5, 73 

Address modification 19-20 
Alphanumeric informa- 
tion 61-62 
coding 79-80 
converting 90 
Arithmetic accumulator 68 
Arithmetic instruc- 
tions 3, 6 
Assembler aids 126 
Assembler language 14 
Assembly listing 16 

BCD information 61-62 
BCD pseudo-operation 63 
BCI pseudo-operation 62 
BES pseudo-operation 44 
Block operations 

43-45,110-113 



Branching 



46-50 



Card punch 23-24 
Card reader 23 
Cards, loading 25 

format 15 
Closed subroutines 53-60 
Coding alphanumeric 

information 79-80 
Conditional assembly99-102 
Console help 128 
Conversion 90-94 

integers 86-87 
Convert instructions90, 93 
Correction cards 

6l, 127-128 
Created symbols 105 



Data, loading 


25 


Data channel 


1 


Data instruction 


20 


Data-moving instructions 




3, 6 


Data processing 


90-96 


Debugging 


126-131 


DEC pseudo-operation 72 


Decisions 


11-13 


Decrement 


30 


Division 


5-9, 73 


Dumps 


128-129 


Dyna ml c s 1 0 ra ge 




allocation 


65-66 


Error flags 


126-127 



Factorial, computation 
by macro-instruc- 
tions 120-121 
FAP language 14-16, 52 

Fixed branching 46-47 
Fixed -point numbers 2 
Floating-point numbers 2 
Floating-point operations 

72-73 

G0 pseudo-operation 110 

Histogram 4l-42 

IFF pseudo-operation 

99-100, 107 
Indexing instructions 

29-31, 35, 40-41 
Index registers 28-44 
simulation of 100 

113-115 
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Indirect addressing 

57-58 

Input-output operations 

61-63 

Instruction format 

15, 28-29 
Instruction word 2 
Integers 2 
conversion 86-87 
ordering 88-89 
Interchange sort 94-95 
Interpreters 122-125 
IRP pseudo-operation 103 

Largest number, deter- 
mination 45-46 
Linkage, subroutine 53 
Listing, assembly 16 
Lists 85-86 
Logical accumulator 68 
Logical instructions 

20-21, 66-68, 75-76, 80 
Loops 18-27 

Macro-instructions 

52, 97-121, 129-130 
Magnetic tapes 1 
information 22 
reading and writing 

22-24 

Masking 68 
Memory 1 
Memory space, minimizing 

64 

Merging 95-96 
Monitor program 6l, 63 
Multiplication 5-9, 73 
Multiplier-quotient (MQ) 
register 2 

Nested macro-instruc- 
tions 109-110 
Nim 82-85 
Nonnumerical problems 

75-89 

Numerical problems 72-73 

Octal correction cards 

61, 127-128 
Open subroutines 51-52 
0PSYN pseudo-operation 

113 



Ordering Integers 

88-89, 94-95 

Packing 69-71, 79 

Pattern detection ' 87-88 
PMC pseudo-operation 98 
Pointers 39 
Polynomial evaluation 

8-10, 14, 21-22, 35 
Printer, line 24 
Printing macro-instruc- 
tions 117-119, 121 
Program loops 18-27 
Program planning 64-71 
Program testing 126-131 
Pseudo-operations 15, 44, 
62-63, 72, 93-94, 98, 113 
macro-instruction 97, 
99-100, 103, 107, 110 
Push-down lists 42-43 



Qualifiers 



16 



Reading out results 26-27 
Reading tapes 22-24 
Recursive macro-instruc- 
tions 120-121 
Remote assembly 107-108 
Repetition in coding 

102-104 

RMT pseudo-operation 107 
Running time of instruc- 
tions 64 

Sense indicator register 

81-82 

Sequencing in memory 45-50 
Shifting 66-68 
Simulation, index 

registers 113-115 
3-address computer 

115-116 

Skip instructions 46 
Sorting, by signs 38-39 

see also "Ordering" 
Storage allocation 65-66 
Structure of computers 1 
Subroutines 51-60 

linkage 53 
Subtraction 2-4, 73 
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Summation of numbers 

19-20, 33-34 

subroutines 

51-52, 55-57 
Symbolic coding 14-17 
Symbolic expressions, 

analysis 76-78 
Symbol reference table 128 

Table-look-at 40-42 
Tag 28 
Tapes 

see "Magnetic tapes" 
Testing of programs 

126-131 

Test instructions 46 
Three-address computers, 
simulation 



with macro-instruc- 
tions 115-116 
with interpreter 

122-124 

Time-space balance 40 
Transfer instructions 10 
Transfer of control 53-54 
Transfer of information 



54-55 

Trapping feature 129 

Unpacking 69-71 

Variable branching 47-49 
VFD pseudo-operation 93-94 

Words in memory 1-2 
Writing tapes 22-24 



INDEX TO INSTRUCTIONS 



ADD Add 3 

ALS Accumulator left shift 66 

ANA "And" to accumulator 68 

ANS "And" to storage 68 

ARS Accumulator right shift 66 

A XT Address to index true 29 

CAL Clear and add logical 20 

CAQ Convert by addition to the AC 90 

CAS Compare AC to storage 45 

CLA Clear and ADD 3 

CLM Clear magnitude 6 

COM Complement magnitude 75 

CRQ, Convert by replacement from MQ 90 

ERA "Exclusive or 1 ' to the AC 80 

FAD Floating add 73 

FDH Floating divide or halt 73 

FMP Floating multiply 73 

FSB Floating subtract 73 

HTR Halt and transfer 3 

IIA Invert indicators from AC 82 

LAC Load complement address in index 122 

LAS Logical compare AC to storage 75 

LDI Load indicators 8l 

LDQ Load MQ, register 6 

LGL Logical left shift 66 

LGR Logical right shift 66 

LXA Load index from address 29 

NZT Nonzero test 46. 

ONT On test for indicators 8l 

ORA "Or" to accumulator 75 

ORS "Or" to storage 75 

PAC Place complement address in index 88 

PAI Place AC in indicators 8l 

PAX Place address in index 40 

PBT P-bit test 8l 

PXA Place index. in address 4l 

RQL Rotate MQ, left 66 

SLW Store logical word 21 

STA Store address 25 



136 



137 



STI Store indicators 129 

STO Store 3 

STQ Store MQ 6 

STZ Store zero 19 

SUB Subtract 3 

SXA Store index in address 35 

SXD Store index in decrement 35 

TIX Transfer on index 35 

TLQ Transfer on low MQ 94 

TMI Transfer on minus 10 

TNZ Transfer on nonzero 10 

TPL Transfer on plus 10 

TRA Transfer 10 

TSX Transfer and set index 53 

TXH Transfer on index high 31 

TXI Transfer with index incremented 30 

TXL Transfer on index low or equal 30 

XCA Exchange AC and MQ 6 

ZET Zero test 46 



